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MUNXX Pascal Package VI.1 


Summary 


PCS 

PfaeUer-Uald-Str. 36 
I'iue lichen 98 


The MUNIX Pascal Package includes not only the PASCAL pro¬ 
gramming language, but also the SNUbUL. languoge ond oddi- 
t i 0 naI utilities. 

Tlie screen oriented utilities o-f this packoge work on a 
large number of display terminals. New terminals are easily 
driven after editing a terminal description file. 

J- 


PC Compile and/or link programs in the PASCAL. 60888 

language. 

PASCAL 60808 is an extended implementation of the 
PASCAL language. Specifically PASCAL 688813 com¬ 
plies almost completely with the requirements of 
the XSU standard proposal for PASCAL. Some of the 
features of PASCAL 60888 ore 

U General purpose language 

U block oriented languoge 

It Strong type checking 

U Variety of data structures: 

simple types, arrays, records, 
sets, files, pointers 

U Various control statements 

tl Predefined procedures ond functions 

U Seperote compilation of modules 

tt Import and export of var i ob I es, pro c edur es and 
functions 


November S, 1982 
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MUNIX PASCAL 
PACKAGE 




PCS GmbH 

Periphere Computer Systeme 
f llzer-Wald-StraBe36 
V^SOOO MQnchen do 
Telefon(089)681021 
Telex 5 23271 


l)if orniui (oti i »i this document is subject to change without 
notice onii does not represent a commitment on the part of 
Feriphere Computer Bysteme BmbH. ,The software described in 
this document is furnished under a license agreement or non¬ 
disclosure agreement. The software may be used or copied 
only in occordance with the terms of the agreement. 


Copyright Siemens AG 

Siemens software products ore copyrighted by and shall 
remain property of Siemens AG. 


Copyright f982/ i'eriphere Computer Systeme GmbH 

PCS software products are copyrighted by and shall remoin 
property of PCS GmbH. 
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Text 


PLD 


PAGE 


It Linking C, FORTRAN or ofesenibier modules to PAS¬ 
CAL 68000 modules 

Interpret progroms in the SNDBOL longuoge. 

U SNOeOL has some of the best features of Basic 
and Lisp: It is interactive* has 'rubber 
memory' for strings* lists and associative 
tables* and finally it is easy to learn. 

U SNU80L is quolified for the following applica- 
ti 0 ns: 

text editing jobs 

small interactive data bases 

smaI I translators: omim — languages* macros... 

It Preprocessor snif 


Ei'® ci§§iJL>s 


Interactive screen oriented editor . Most of the 
facilities of the LD line editor with the exten¬ 
sion of free cursos movement on the screen and the 
use of function keys. The mnemonic assignernent of 
commands to keys makes the editor command set easy 
to use and to remember. 

n Add* delete* change* copy lines. 

tt Split* concatenate lines- 

U Find lines by number or pattern. 

U Manage previous defined rectangles. 

U Switcli to another file. 

U Define abbreviations. 

It Escape to Shell during editing. 

Interactive display function for text tiles. 

U Examine a tile on screen sequential by use of 
function keys. 

Q Choose on orbitrary page of the file by cursor- 
positioning. 


November S* 1982! 
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PBUI 7 Screen oriented source level run time debugger tor 

C» PASCAL and P'OKIKAN programs. 



XHLr 


U PBU6 splits the screen into several windows tor 
comnioncf menu 

displo>' ot variables or symbolnames 
memory dump 
error messages 

I/O to resp. trom the debugged program 


It The easy-t 0 -1 earn command intertace allows the 
user to 

set and reset breakpoints 

display the source code ot the debugged program 
list the contents ot variables and memory 
stort» continue and kill the program 
get intormation ot the availoble commands 

create 0 cross-reterence listing trom a C or Pas¬ 
cal program. 
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Pascal 68000 User's Guide 
Version 1.1 
June 82 


ABSTRACT 


The Pascal 6B000 User's Guide is intended for use in developing new Pascal pro¬ 
grams, and in compiling and executing existing IPascal programs on 6S000;UN!Xt 
sj^sterns. This manual gives also some insight into the Pascal 6B00D System 
structure, its components and its behaviour. 

Pascal 6B000 is an extended implementation lof the Pascal language. 
Specifically Pascal 6B000 complies almost completely with the requirements oT 
the ISO standard proposal for Pascal. 

This manual is designed for programmers who have a working knowledge of Pas¬ 
cal. Detailed knowledge of 6B000 UNIX is helpful but not essential. 


tUNDC is a Trademark of Bell Laboratories. 
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n. Introduction 


The Rascal 68000 User's Guide is intended for use in developing new Pascal 
progreuns and in compiling and executing existing Pascal programs on 68000 
UNIX systems. This manual edso gives some insight into the Pascal 68000 Sys¬ 
tem structure, its components and its behaviour. 

This manual is designed'for programmers "who havea working knowledge of 
Pascal. Detailed knowledge of 68000 UNIX is helpful but not essential. 

Pascal was designed by Professor N. Wirth as a language !for teaching struc- 
t\ired programming techniques and as such is used widely in educational 
institutions. It has also gadned popularity as a general-purpose language 
because it contains a set of language features that make it suitable for many 
dlflerent programming applications. Pascal has furthermore strongly 
irifluenced the development of several languages (e.g. ADA). The Pascal 
language includes a variety ;of control statements, data types, and 
predefined procedures emd functions. 

Throughout this document the following notation is used: 

Keywords and predefined identifiers are printed in bold face. 

J^/ntactic variables bls well as UNIX components are printed in itedic font. 

Metas 3 mibols and [,] are used for optional parts (0..oc and 0..1), (,) 
bracket s>Titactical units and / separates alternatives. Terminal sym¬ 
bols are printed in roman face; to distinguish metasjnnbols from termi¬ 
nal symbols apostrophes ’ are used if necessary. 
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2. Pascal Language 


:2.1. Supported Language 

Pascal 6B000 is an extended implementation of the Pascal language [l"]. 
Specifically Pasced 6B000 adheres to the Pascal language as described in 
the suggested ISO Standard [2]. Ih.is "draft Standard" is a cleaned up 
version of;the original Pascal and has been submitted to ISO for accep¬ 
tance. 

Pascal 6B0X)0 was tested ageiinst a "Pascal Processor Validation Suite" ([3] 
.[•4]). These tests should give a^good overview of the quality of the imple¬ 
mented system. 


’2JZ. Deviations and Ebctensions 

2.2.1. Deviations 

.Pascal 6B000 deviates from the standard proposal in the following ways; 

(1) Only the first 16 characters of an identifier are significant. The 
truncation of an identifier to 16 characters alters the meeming of a 
conforming .program. 

(2) Standard procedures and functions are not allowed as parameters, 
as in previous standard proposals. Identical results with minor 
loss in performance can be obtained by declaring user procedures. 
For example: 

ifunction userodd(i: integer) ; boolean; 
begin 

userodd := odd(i) 

end: 

(3) Type real is not yet implemented. 

(4) Procedures that are to be used as parameters must be declared at 
main level. 

(5) dispose is not yet implemented. 

2.2.2. Extensions 

. 2.2.2.I. Separate con 9 >ilation 

Pascal 66000 is able to compile so called modules, a collection of 
declarations, procedures and functions. The result of the compila¬ 
tion (an a.out object module) can be handled by the usual UNIX com¬ 
ponents, i.e. they can be stored in libraries, bound(loaded) with 
other a.out modules, etc, 

The separate compilation feature is further supported by enabling 
import and export of variables, procedures and functions. Modules 
Implemented in Pascal, C or assembler can be linked to Pascal 6B000 


2 


Paacal 68000 







modules. Procedures and functions are imported by using a direc¬ 
tive in the heading; extern for Pascal- and assembler- and extemc 
for C-procedures; they are exported implicitely by being defined on 
the outermost level within a module. The user is responsible for 
parameter and result compatibility. 

Variables are imported or exported by using the newly introduced 
keywords import or export instead of var. The two predefined vari¬ 
ables input and output are (per default) exported from a mainpro- 
gram, if they are listed in the program heading. If used, they have to 
be imported in a module. It is not possible to import or export 
labels! 

The new syntax for a compilation unit is: 

compUation^nit = 

programnam-e '{'files ')' ; block . 
module name ; [declaration] . 

block = 

[declaration] compound statement 


Z.2.Z.Z. Additional stemdard procedures 

The following additional standard procedures are available: 

ad dr 

This function returns the address of the parameter, which is 
compatible with all pointer types. 

convert 

This function changes the type of the first parameter. 

release, mark 

Easier to implement than dispose, mark and release allow to use 
the heap as a stack, mark(p) stores the current value of the 
heap pointer in p. release(p) restores the heap pointer to p. 

2.2.2.3. Underscore as letter 

The character is significant and can be used in forming 
identifiers. 

2.2.2A. Alternate symbols 

There are two representations for comment symbols ('(*' , '•)’ and ’I' 
, 'J') and for bracket symbols ('(.’ , and ’[' , ']'). 

2.2.2.5. Default case 

In a case statement a default case can be defined. The both key¬ 
words otherwise and else: will be accepted. 
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Z.2.2.B. Exponent 

A lower case e may be used to represent real numbers. 

2.2.2.7. Declaration 

The order of declaration for labels, constants, types, variables, func¬ 
tions and procedures has been relaxed. Any order and any number 
of times declaration sections may be used. Furthermore, import and 
export variable declaration are implemented to support the separate 
compilation feature. 

An identifier must be declared before it is used. Two exceptions exist 
to this rule: 

(1) Pointer types may be forward referenced as long as the 
declaration occurs within the same type-definition-part 

(2) Functions and procedures may be predeclared with a forward 
declaration. 

The new syntax for a block is: 

tlock - [declaration] compound statement 

declaration = 

import (names : type ) ;... 

/ export (names : type ) ;... 

/ var (names : type ) ;... 

/ label label , ... 

/ const (name '= ’ constant ) ;... 

/ t 3 rpe (name - ' type ) ;... ; 

/ function declaration 
/ procedure declaration 


2.2.2.B. Hexadecimal constants 

Hexadecimal integers are indicated by a preceding "f'. The s>Titax 
for a hexadecimal integer is: 

unsigned number- digit [digit] / § hexadigit [hexadigit] 

digit = 0/1/2/3/4/5/6/7/B/9 

hexadigit — digit /A/D/C/D/E/F/a/b/c/dze/f 


2.2.2.9. Generic pointers 

Generic pointers provide a tool for generalized pointer handling. 
Variables of t)zpe address can be used in the same manner as any 
other pointer variable with the following exceptions: 

• generic pointers cannot be deferenced since there is no type 
associated with them. 

• generic pointers cannot be used as an argument to new. 

• any pointer can be assigned to a generic pointer. Use convert 
for assigning a generic pointer to a t 5 zped pointer. 
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2.2.2.10. Shorts 

Type short is imp lemented. Subranges which fit in the range -2'® .. 
2'®*^ are treated as shorts. 


2.2.2.11. Character constants 


Certain non*printable characters may be represented according to 
the following table of escape sequences: 


\\ backslash 

\b backspace 

\f formfeed 

\n newline 

\r carriage return 

\t horizontal tabulator 

\ddd 


The escape sequence \ ddd consists of a backslash followed by 1,2. or 
3 octal digits which are taken to specify the value of the desired 
character. If the character following the backslash is not one of 
those specified, the backslash is ignored. 


2.3. Results of Validation Test 

Pascal 6B000 was tested against a "Pascal Processor Validation Suite". 
This suite consists of many programs which are classified as: 


Conformance _ , , . 

These programs adhere strictly to the ISO Standard. They should 

correctly compile and execute. 

Dq'i/Lcltic b 

These programs are not allowed by the ISO Standard. The deviances 
(sometimes extensions) should be detected at compile or run*time. 

finplementationdefined 

These programs contain implementation dependent features which 
are the responsibility of the implementors. 


Errorhandling 

These programs contain errors which must be reported at compile or 
run-time. 


QiLolity 

These programs atten^t to assess quality. They should find out the 
limits of the system, the accuracy of the arithmetic, the ability of 
compiler diagnostics, etc. 


The results of the tests are summarized in the next paragraphs. They 
should give a good overview of the quality of the implemented Pas¬ 
cal 6B000 system. 
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2.3.1. Conformazice Tests 


ISO 6.1.5-2. 6.4.2.2-1. 6.4.6-1, 6.4.6-2. 6.4.6-3, 6.6.1-1, 6.6.6.2-1. 6.6.6.2-2, 
6.6.6.2-3. 6.6.6.3-1. 6.7.1-2, 6.9.2-3. 6.9.4-4: reals are not yet imple¬ 
mented. 

ISO 6.4.3.5-3: End of line marker is not inserted at the end of the line, if 
not explicitly done in the program. 

ISO 6.5.1-1: files are not allowed in structured data. 

ISO 6.6.3.4-2: Inconsistency in the implementation of procedure param¬ 
eters. 

ISO 6.6.5.3-2: dispose is not implemented. 

ISO 6.7.2.2-5: Big constants can cause compiler crash. 

ISO 6.B.3.9-1: Assignment to for control variable is done after evaluation 
of initial expression (i.e. before evaluation of the terminating expres¬ 
sion). 

2.3.2. Deviance Test 

ISO 6.1.2-1: Reserved word nil may be redefined. 

ISO 6.1.5-6: A lower case e may be used in real numbers. 

ISO 6.1.7-11: A null string is accepted by the compiler. 

ISO 6.2.2-4, 6.3-6, 6.4.1-3: Scope error not detected by the compiler. 

ISO 6.6.2-5: -A function without an assignment to the function value 
variable in its block compiles and runs. 

ISO 6.B.2.4-2. 6.B.2.4-3. 6.B.2.4-4: A goto between branches of a state¬ 
ment is permitted. 

ISO 6.B.3.5-12: Extension; subranges allowed as case constant element. 

ISO 6.B.3.9-2. 6.B.3.9-3. 6.B.3.9-4. 6.B.3.9-16: An assignment can be made 
to a for statement control variable and in fact changes the value, but 
has no effect on the number of repetitions. 

2.3.3. Implementationdefixied 

ISO 6.4.2.2-7: maxint is 2 147 4B3 647. 

ISO ,6.4.3.4-4: set bounds are 0 and 255. 

ISO 6.6.6.1-1: Standard procedures and functions not allowed as formal 
parameters. 

ISO 6.6.6.2-11, 6.9.4-5. 6.9.4-11, 6.11-2; reals not yet implemented. 

ISO 6.B.2.2-1, 6.B.2.2-2: A variable is selected before the expression is 
evaluated in an assignment statement. 
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ISO 6.9.4-11: Default field width specification: 10 for integers and 5 for 
booleans. 

ISO 6.10-2: Rewrite on the standard output file is permissible. 

ISO 6.11-1, 6.11-3: Alternative comment delimiters and bracket delim¬ 
iters have been implemented. No other alternative symbols have been 
implemented. 

2.3.4. Error Handling 

ISO 6.2.1-7, 6.6.2-6. 6.8.3.9-5, 6.B.3.9-6: Uninitialized or undefined vari¬ 
ables are not detected. 

ISO 6.4.3.3-5. 6.4.3.3-6, 6.4.3.3-7, 6.4.3.3-8: No runtime checks are per¬ 
formed on the tag field of variant records. 

ISO 6.4.6-7, 6.4.6-8. 6.7.2.4-1: No bounds checking is performed on over¬ 
lapping set operands. 

ISO 6.6.2-6: The use of a function without an assignment to the function 
value variable is permitted. 

ISO 6.6.5.2-6. 6.6.5.2-7: Fail because I/O has not been implemented 
strictly according to the standard. 

ISO 6.6.5.3-3, 6.6.5.3-4. 6.6.5.3-5, 6.6.5.3-6: dispose is not implemented 

ISO 6.6.5.3-7, 6.6.5.3-B, 6.6.5.3-9: No checks are inserted to check 
pointers after they have been assigned a value using the variant form 
of new. 

ISO 6.6.6.4-7: No bound checks are inserted for the succ, pred or chr 
functions. 

ISO 6.7.2.2-6: Big constants cause compiler crash. 

ISO 6.B.3.9-5. 6.8.3.9-6: The for control variable is not invalid after the 
execution of the for statement. 

ISO 6.8.3.9-17: Two nested for statements with the same control vari¬ 
able are permitted, but do not run into an infinite loop. 

2.3.5. Quality Measurement 

ISO 5.2.2-1: Identifiers are not distinguished over their whole length. 

ISO 6.1.3-3: Only the first 16 characters of an identifier are significant. 
ISO 6.1.8-4: Unclosed comment not detected. 

ISO 6.2.1-8, 6.2.1-9, 6.5.1-2: Large lists of declarations can be made in 
each block. 

ISO 6.4.3.2-4: An array with integer index type is not permitted 

ISO 6.4.3.3-9: The variant fields of a record occupy the same space, 
using "exact correlation". 
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6.4.3.4-5: Warshall’s algorithm runs 

ISO 6.6.1-7: Procedures can be nested to a depth exceeding 15. 

ISO 6.7.2.2-4: div and mod have been implemented consistently, mod 
returns remainder of div. 

ISO 6.B.3.5-2: The case constants must be compatible with the case 
index, but do not have to be of the same type if the case index is a 
subrange. 

ISO 6.B.3.5-B: Large case statement is permitted. 

ISO 6.B.3.9-1B: A range check is performed in a case statement after a 
for statement, to check the value of the for control variable. 

ISO 6.B.3.9-20, 6.B.3.10-7: for and with statements can be nested to a 
depth exceeding 15. 

ISO 6.9.4-10: The output buffer is flushed. 

ISO 6.9.4-14: Recursive I/O is permitted, using the same file. 
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3. Pascal 6B000 under UNIX 




3.1. Creating and executing a program 

The usual way to create and execute a program is realized by entering the 
following commands to the 6B000 UNIX operating system. With each com¬ 
mand, you include information that further defines what you want the 
system to do. Of prime importance is the file specification, which indi¬ 
cates the file to be processed. You can also specify qualifiers that modify 
the processing performed by the system (S is the system prompting sjth- 
bol). 

A program is entered or corrected by any editor of the user's taste. The 
file name of Pascal source programs must have the suffix '.p'. 

% edit <name>.p cr 

The pc [5] command compiles and links the Pascal program. The resulting 
object module is left in <ncmie>. 

Spc -o <name> <name>.p cr 

The program is loaded and run by: 

S name cr 

The only program parameters supported by the Pascal language are files. 
There are three ways to associate an (external) UNIX file specification with 
an (internal) Pascal file specification. The standard Pascal files input and 
output are always associated with the logical UNIX files stdin and stdout. 
Their comfortable and flexible use is described in [6]. .411 other Pascal 
files can be associated with any UNIX file either by assignment within a 
commandline: 

S name pascalfiLle_l=UNIX_file-specification \ 
pascalfile_2=UNlX_fi.le-specification ' \ 

. . . CR 

or - if an assignment is missing - interactively: 

S name pascalfile_2=UNIX_file-specification cr 
pascalfile-1 ? UNDC-file-specification cr 




Example: 

S ed example .p cr 
Ipc -0 example example.p cr 
S example eingabe=/dev/tty cr 
ausgabe ? example.aus cr 


* As these assignments are considered as one argument each, there must be no blanks before or 
after the sign. 
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It is advisable to define a shell procedure for a more convenient file 
assignment especially if some of the files are fixed or work files. 


3.2. Support of max Facilities 

The user has full access to all UNIX system calls as well as files. The system 
calls can be accessed just like C procedures (see below). The objects are 
to be found in the standard library. The standard procedure h^t provides 
a means to return an "exit code" to the system. Furthermore the system 
variables" _argc and -jargv are provided for access to the command argu¬ 
ments _argc indicates the number of arguments whereas _argv refer¬ 
ences an array of argument strings. The variables can be declared as 

{$t- i 
type 

argva = arTay[l..n] of ^ string: ( n >= -argc j 


import 

_argv : argva: 

^rgc : integer: 

w'here string is a null-terminated character array (C convention). 
Remember that the file specifications are command arguments too, i.e. 
_argv[l]'-[l] is the first character of the program name. If you access 
_argv^. it\s essential to switch off the pointertest. 

The C preprocessor cpp [7] may be used vrithouc limiLatioris. 

A*5 stated earlier C and assembler modules can be loaded with Pascal 
When connecting Pascal modules with C modules you should take care Oi 
parameter compaUbility (see 8.) and of identifiers since C prefixes the 
identifiers of export variables and procedures with a ' - ^i.e. a variable 
identified in Pascal as -argc would be called argc in C) Moreover, you 
must be sure that the C modules do not use the sbrk/brk system call 
which interferes with the Pascal heap 


3.3. limitations of Pascal 68000 


Because of the separate compilation feature, a 
rewrite cannot be detected by the compiler and will most probably 
cause the program to crash with an address error at the first attempt 
to access the corresponding file-variable. 


Currently, a reset on input or a rewrite on output have po effe ct at 
all. Therefor, it is not possible to reposition input or output to the 
beginnig of the associated file. 

Actually, code produced per procedure must not exceed ^O KB. This 
limit is a co mp iler constant and can be changed by recompiling 
passE. 


With the current 6B000 processor it is not possible to J^^ve a dynanm- 
cally growing stack (see "Unterschiede vun MUNIX to UNIX \7, M. 
Uhlenberg")- Programs, that crash with §t^pKpvgrflP1^"> 
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restarted eifter having enlarged the stacksize by means of the com¬ 
mand stksiz. 

The datasize of a program (heap and stack) is limited to a total of ca. 
240 KB (see "Unterschiede ... "). 
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4. Coi^pUer options 

Compiler options are given by using Each option consists of a lower 

or upper case letter followed by “+" or Options are separated by com¬ 

mas. There must be no blanks between and "S" or between a comma and 
the succeeding option. The following options are supported: 


A/a -(■/- 
D/d + /- 

a-r produces an assembler listing 

d-!- produces code for pointer, subrange check 

and line numbers 

E/e -!-/- 
P/p +/- 
T/t -r/- 
¥/w' +/- 

e+ will suppress extension warnings 

p-i- code for profiling is generated (see pro/ [B]) 

t*r produces code for pointer check 

w+ will suppress warning messages 


Defaults: |Sa-.d-.e-.p-.t-,w-| 

Options appearing before the program or module symbol can be overwritten 
by options given in the pc command. 


12 


Pascal 6B000 





5. Error bandling 


Errors are detected emd reported by several components of the Pascal 6B000 
system: 


-preprocessor cpp, see pc 

- compiler 

- loader Id, see pc 

- run-time system 


5.1. Compiletime Detection of Source Errors 

passl detects syntactical and some semantical errors and (optionally) 
deviations from the standard language definition. Errors that are not 
detected are listed in 2.3.4. passl does not produce error messages or a 
listing but compiles a condensed version of the diagnostics that \^lll be 
printed in a readable form by an extra pass perror. If only warnings are 
issued compilation proceeds otherwise it mil be terminated. 

The option ‘-L" (see pc) produces a full listing with error messages. The 
default is a listing containing the offending line, its predecessor and the 
readable (and hopefully understandable) error messages. Sometimes an 
error causes several messages to be printed in which case all but the first 
one can be ignored. 

pass2 detects no source errors, but might report a compiler error (though 
of course it should not). Please let us know if you get an compiler error 
or an unknown error message. 


6.2. Other Errors Detected at Compiletime 

During compilation, UNIX resources can be exhausted, e g. file system, pro¬ 
cess table, or memory overfiow, etc. Furthermore UNIX can deny access to 
files. Extensive treatment of these errors is beyond the scope of this 
manual. They are described in the UNIX documentation. 


5.3. Runtime errors 

Errors occurring at run time are always fatal, t.e the program will report 
an error message, dump the core file and then abort. Ynth the help of the 
UNIX debugger adb [9] the user can generate a (partially) symbolic post 
mortem dump which indicates the location of the fatal error, the number 
of the corresponding source line (if the debug option was on), the 
dynamic calling sequence, etc. 

The error message should comprise a sufficient diagnosis oh the error 
detected. As far as file access is concerned, the errors are mostly 
reported by the UNIX system and must be investigated using the documen¬ 
tation. Other messages indicate programming errors such as divide by 
zero, integer overfioM’, etc. 
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6. Pascal System Components 

Figure 6.1 gives an overview of the Pascal system components. The prepro¬ 
cessor is the same as the C-compiler's. and does macro preprocessing and 
including of source files. 

The first pass pass! does the lexical, the syntactical and the semantical 
Einalysis. It constructs a parse tree for each block and outputs it. 

There is an extra pass perror to produce a source listing if requsted, and to 
print error messages based on the diagnostics compiled by passl. 

The second pass passS does the code generation. The output of passl is read 
in and an identical parse tree as in passl is built up. The generated code is 
output in several files. 

The third pass cS is the same as the C-Compiler's and collects the code dis¬ 
tributed on various files. It produces one file containing the object code in 
a out format [10]”. 


<source>.p 

! 

i 

gpp 



a. out 


Figure 6.1: Pascal System Components 
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6.1. Hardware and Software Environment 


Pascal 68000 runs on two quite similar 68000 UNIX systems, PERKEO [ll] 
andQU68000 [12], 

Features of these systems are; 

■ actually supported microprocessor Motorola 68000 

• large memory (0.5 MB ) 

• hard disk (St 10MB ) 

• memory management unit 

UNIX [13] [14] is a time-sharing system and provides all such features 
needed by Pascal 66000. Df great importance are the file system, the 
command interpreter (shell), and the object module management (ar. Id 
[15]). But of equal, if not greater, weight are all those UNIX components 
which make life easier: ed, re.ped, make. etc. 


6.2. Passl 

The first pass does lexical enalysis, parsing, declaration handling, tree 
building, and some optimization. This pass is largely machine independent. 

The lexical analysis is a conceptually simple procedure that reads the 
input and returns the tokens of the Pascal language as it encounters 
them: identifiers, constants, operators and kejnvords. Comrrients must be 
skipped. Decimal and hexadecimal constants, characters and strings must 
be properly dealed with. 

The first pass parses, as the original Pascal-P4 compiler, the tokens in a 
top down, left right, recursive descendant fashion. During the processing 
of a declaration part a symbol table is built up, addresses will be allocated 
to veu'iables and procedures, and the semantic of the declaration is 
checked. Besides this, information is prepared for the debugger adb (or 
pbug [16]). 

During the processing of the statement part a parse tree is built. The 
proper use of operators and operands is checked. Some complex syntacti¬ 
cal structures are broken down into simpler ones. 


6.3. Pass2 

The second pass generates 68000 machine code and related information 
from the source program represented by the parse tree; these wiU be 
combined to a a.out object. In addition it completes the debugger informa¬ 
tion prepared by passl. 

Code generation is done in two steps. The first one traverses the parse 
tree generating pseudo instructions for a hypothetical stack machine. 
This step is rather isimple, machine independent and straightforward. The 
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second step deals with machine specific tasks such as address computa¬ 
tion. register allocation and 68000 code generation, thus interpreting the 
pseudo instructions in a real existing environment. Step one and two take 
place in parallel tor efficiency reasons; the generation of a pseudo 
instruction is replaced by calling a procedure implementing this instruc¬ 
tion. 

i>ass.P yields different kinds of output. Three flies contain binary informa¬ 
tion ready to be combined to an a..out object by a third pass. A fourth file 
may contain the generated machine code in an assembler-like represen¬ 
tation. On another file debugger information is prepared. And there might 
be diagnostic messages indicating a compiler error. 


6.4. Cross Reference 

The cross reference program arre/5 produces first an overview of your Pas¬ 
cal source program in form of a static nesting procedure diagram, and 
second the usual cross-reference list with identifiers and line numbers. 

xref6 is implemented as an independent component. There are several 
reasons for doing so: 

■ The compiler is not bothered with cross referencing. 

• The multiprogramming (parallel processing) of the system can be 
exploited. 

• Many programming errors can be found with the help of a cross- 
reference listing; i.e it is not necessary to start the big, resource 
consuming, compiler. 


6.5. Prettyprinter 


One important aspect about Pascal coding style is consistency, although 
styles certainly differ from one programmer to the next, pretty prints a 
Pascal program in a ''pretty" form with standard indentations, see the 
pre tt>’’pr inting e xampl e 


pretty provides several options because no prettyprinting style can please 
everyone; b\' allowing complete control over the process, one can achieve 
pleasing res’ults. Unfortunately, comments are not too well supported. But 
pretty can "beautify" your program source both after your first typing 
and after corrections. 

For more details see [17] 
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7. Calline Conventions 

Procedure calls are realised by a commonly used mechanism defining stack- 
frames, which are allocated or deallocated as a procedure is activated or 
deactivated, respectively. In our implementation four registers and a vector 
of pseudo registers are used: a7 is used as stackpointer, a6 and a5 reference 
the current and the global stackframe base, respectively. dO returns a func¬ 
tion result and the system variable «pbvec[0..maxdepth] stores the base 
addresses of all currently accessible stackframes. The layout of a stack- 
frame is shown below. 

stackframe 




(i = ciirrent nesting depth) 


A parameter is passed by-reference or by-value depending on whether it w'as 
declared as var parameter or not. The representation of parameters in 
memory is the same as for other variables with the exception that they are 
always word aligned, i.e. a parameter occupying an odd number of bytes in 
memory will always be followed by a byte of undefined storage. 

Example: 
stackframe for 

procedure p(var j:mtegeri c,d:char; i:integer); 
after procedure entry 

_2_4_ 6 12 _ .16 ,17 16 IS 2D ___ 

I ^phvec ■ old a6 ’ reteddr i addr(j) i c I * * i d ♦ j i ' 

t 

a6 

• undefined 

The C interface provided as an extension differs from the Pascal parameter 
passing conventions only in the treatment of one-byte values; following the C 
semantics, data occupying one byte of storage are extended to (unsigned) 
word values and then treated like a short 
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Example; 
stackframe for 

procedure p(var jiinteger; c.d char; iiinteger); externc; 
after procedure entry 

P _ 4 _g_ 12 ,14 16 __ 

old a6 ! retaddr ! addr(3) I c j d I i I 

t 

a6 

where c & d ere pushed as zero padded short items 
(at our installation Pascal riiort corresponds with C int) 
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IB. Data Representation and Allocation 


In a.out modules program data fedl into three segments: the text segment, 
the data segment eoid the bss segment. Pascal 66000 uses only two of them: 
the text segment contains program code and constants whereas static data 
(exporteded by a module) are stored in the bss segment. Automatic and 
dynamic data are allocated at runtime in stack and 'free memory' managed 
by the brk/sbrk system calls, respectively. 

To cope with alignment, one general rule can be stated: any data allocated 
more than one byte is aligned on a word (2 bytes) boundary. ’ 

Variables of scalar and pointer types are allocated storage space as summar¬ 
ized in table 8.1. Variables of subreinge types are allocated as variables of the 
associated scedar types. For example, a type 1..10 is considered a subrange 
of short and therefor allocated a word. The structured types are stored as 
described below. The attribute packed is ignored. 


Type 

Storage 

1 

Allocation 

character 

6 bits (1 byte) 

Byte 

booleem 

i 1 

8 bits (1 byte) 

Byte 

i K f i 

1 short 

j 

16 bits (1 word) 

Vford i 

integer 

32 bits (1 longword) 

1 

Word 

real 



enumerated 

8 bits (1 byte) if | 
type contains 256 i 
elements or less; 
16 bits (1 word) 
otherwise 

Byte if type con¬ 
tains 256 elements | 
or less; Word oth- ' 
erwTse 

j 

pointer j 

! 

32 bits (1 longword) i 

Word i 

1 


Table 8.1: Storeige of Scalar and Pointer Types 


A set is allocated storage depending on the ordinal value of its largest ele¬ 
ment: the number of bytes it occupies is equal to the ordinal value rounded 
up to the nearest byte boundary. Since the size of a set is limited to 256 ele¬ 
ments, with ordinal values from 0 to 255, a set occupies at most 32-bytes. 

An array is stored and aligned according to the type of its components. For 
exeunple, each element of a character array is stored in a byte and aligned 
on a b 3 ^e boundary: if the array has more than one component then the 
total array is aligned a on word boundary. Similarly, each element of an 
array of set of 0..21 occupies three bytes and is aligned on a word boundary. 
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Constant strings are internally terminated by a binary 0; i.e. they adhere to 
the C convention. 

Records are stored and aligned field by field according to to the type of the 
field. P'or example, a variable of type 

record 
x: integer; 
y: booleeun; 
z: integer 
end; 


is aligned on a word boundary because it occupies more than one byte of 
storage. The figure beneath shows how this variable is stored; 


• not used 
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D. Appendix 


9.1. Examples 

9.1.1. Sample program 


1 program ackermann(input,output): 

2 var X, y: inteeer; 

3 function ack(i,j: integer): integer; 

4 begin 

5 if i = 0 then ack:=j+l 

6 else if j = 0 then ack;=ack(i-l,l) 

7 else ack:=ack(i-l.ack(i,j-l)) 

6 end; 

9 

10 begin 

11 repeat 

12 ■vFriteln(output,'Enter two integers. Terminate with zero '); 

13 read(input,x,y): 

14 writeln(output,'acker(’,x:0,',’,y:0,') = ',ack(x,}’):0) 

15 until x=0 

16 end. 
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G.1.2. Crossreference 


22 


••• cross-reference-list (zfe fl sar 121 may BO) **• 


static structure of procedures / functions **• 

1- 161 ackermann 

3- B I . ack 
10- 161 ‘code* 


f = formal parameter k = constant 


r = record field t = 

p = procedure / function 

type 


ack 

3p 

5 

ackermann 

1 


i 

3f 

5 

input 

1 

13 

integer 

2 

3 

j 

3f 

5 

output 

I 

12 

read 

13 


X 

2v 

13 

y 

•**end of cross-reference 

2v 

13 


m = main program 
V = variable 


6 6 7 7 7 

6 7 7 

3 

6 7 

1 f 

14 i 4 j. 5 

14 14 
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9.1.3. Prettyprinting 


The prettyprinted sample program using default options is: 


program ackermann(input. output); 
var 

X. 

y: integer; 


function ack(i. j: integer): integer; 
begin 

if i = 0 then ack:=j + 1 
else 

if j = 0 then ack:=ack(i - 1, 1) 
else ack:=ack(i - 1. ack(i, j - l)) 
end (*ack*); 

begin (•ackermann*) 
repeat 

vrriteln(output, 'Enter two integers. Terminate with zero.’); 
read(input, x, y); 

•writeln\OUtput. 'acker'’, X: 0, y: 0, ') = ', ack(x, y): 0) 
until X = 0 
end (*ackermann*). 
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0.1.4. Separate Con4>ilation 


1 program ackermann(input,output); 

2 var X, y: integer; 

3 

4 import counter; integer; 

5 

6 function ack(i.j: integer): integer; extern; 

7 

B begin 

9 repeat 

10 ■wTiteln(output,'Enter two integers. Terminate with zero.’); 

11 read(input.x,y); 

12 counter;=0; 

13 ¥rriteln(output,'acker(',x:0,'.’,y:0.') = ’,ack(x,y):0); 

14 writeln(output.'number of calls = ’,counter;5); 

15 until x=0 

16 end. 

1 module ack; 

2 

3 export counter: integer; 

4 

5 function ack(i,j: integer): integer; 

6 begin 

7 couriter:=counter-1; 

B if 1 = 0 then ack:=j-i-l 

9 else if j = 0 then ack.=ack(i-l,1) 

ID else ack:=ack(i--,ack(i,j-l)) 

11 end; 

12 . 
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9.2. Size of Components 


Component 

Language 

liOCS 

Code Size 
(bytes) 

passl 

Pasced 

3800 

64000 

passS 

Pascal 

3000 

46000 

xrefG 

Pascal 

500 

15000 

pretty 

Pascal 

1100 

1 

2B000 

i 
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9.3. Standard Procedures and Functions 


For a detailed 

description see [2]. 


Procedure 

Parameter 

Result 

Function 

abs(x) 

integer 
real not yet 

same as x 

Computes the absolute 
value of X. 

addr 

any type 

address 

Type address is compati¬ 
ble with all pointer types. 

arctan(x) 

real 

Teal 

not yet 

chr(x) 

integer 

char 

Returns the character 
whose ordinal number is 
X. 

convert(a,t) 

any type 

t 

Returns value of a "with 
type t. 

cos(x) 

real 

real 

not yet 

eof(f) 

file 

boolean 

End of file encountered, 
true only when the file 
position is after the last 
element in the file. 

eoln(f) 

file 

boolean 

End of line encountered, 
true onh’ when the file 
position is after the last 
character in a line. The 
value of f^ is a space. 

exp(x) 

reed 

real 

not yet 

get(f) 

file 


Moves the current file po¬ 
sition to the next ele¬ 
ment. 

halt(x) 

integer 


Terminates the execution 
of the program and re¬ 
turns the value of x. See 
also the system call 
exit(2). 

halt 



same as halt(O). 

ln(x) 

real 

real 

not yet 

znark(x) 

pointer 


Stores the current value 
of the heap pointer into x. 
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Procedure 

Parameter 

Result 

Function 

n.ew(p) 

pointer 


Allocates heap memory 
and returns the address 
in p. 

new(p.tl,..tn) 


Allocates heap memory to 
pointer, must be a 

record with variants. 

odd(x) 

integer 

boolean 

Returns true if the in¬ 
teger X is odd; false oth¬ 
erwise. 

ord(x) 

any scalar type 
except real 

integer 

Returns the ordinal (in¬ 
teger) value correspond¬ 
ing to the value of x. 

pack(a,i,z) 



2 :=a[i..n]; 

where i..n: index range of 
z. 

page(f) 

file 


skip to the top of a new 
page before printing the 
next line of the textfile f. 
The default for f is out¬ 
put 

pred(x) 

any scalar type 
except real 

same as x 

Returns the predecessor 
value of X. 

put(f) 

file 


Appends to the file f. 

The default for f is out¬ 
put. 

read(f,x) 

file 

type of X 
depends on the 
file type 


Reads the value of x from 
the file f. The default for 
f is input 

reading f) 

file 


Skips to the beginning of 
the next line. The default 
for f is input 

read(f.xl,. 

..xn) 


same as 

read(f,xl); read(f.x2...xn) 

readln(f,x 

i,.,.xn) 


same as 

read(f.xl,...xn); readln(f) 
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Procedure 

Pirameter 

Result 

Function 

release(x) 

pointer 


loads the heap pointer 
with the value of x. 

reset(f) 

file 


Resets file for reading. 

roujid(x) 

real 

real 

not yet 

sin(x) 

reed 

real 

not yet 

sqr(x) 

integer 
real not yet 

same as x 

Computes the square of x. 

sqrt(x) 

real 

real 

not yet 

succ(x) 

any scalar type 
except real 

same as x 

Returns the successor 
value of X. 

trunc(x) 

real 

integer 

not yet 

unpack(z,a, 

.0 


a[i..n]:=z; 

w'here i..n: index range of 
z. 

write(f.x) 

file 

type of X 
depends on the 
filetype 


Vvrites the value of x to 
the file f. The default for 
f is output. 

writelii(f) 

file 


Starts a new line. The de¬ 
fault for f is output. 

'write(f.xl.., 

.xn) 


same as 

irrite(f,xl); write'f,x2,..xn) 

trriLeln(f,x; 

:,..,xn) 


same as 

write(f,xl,..,xn); writeln(f) 


2B 


Paacal6B000 









9.4. Syntax Equations 

llstter = a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z 
/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T 
/U/V/W/X/Y/Z/. 

:digit = 0/1/2/3/4/5/6/7/B/9 

mame = letter | letter /digit ] 

rsconstant ^name ^name 
dype^ame = name 
Tvariable^itame = name 

mames = name .... 

liabeZ = unsigned .number 

xoTTipiZafionjuni^ = 

program Y' 'riames ’/ ; bZocfc . 

./ module name ; [declaration] . 

hloch = [declaration] compound statement 

•declaration = 

1 / irrport ( names : type ) ;; 

1 / export f names : type ) ;... ; 

•/ var ( names ; type ) ;... 

/ label iabeZ , .. ; 

/ const (name ‘ = ‘ constant 
./ type (name ' = ' type ) ;... ; 

./ function declaration 
./ procedure declaration 

•constant = 

J sign ] (unsigned jnumber / constant jn.ame ) 

:/ character string 

sign = -r / - 

runsignedjconstant = 

unsigned number / char acter string 
/ constant jname /nil 

ninsigned number = 

xiigit [digit] / § hexadigit [hexadigit] 

^Jiexadigit = digit /A/B/C/D/E/F/a/b/c/d/e/f 

\characterstring = /^characters enclose by * ' */ 


ty p e 


\typz - type^ame /newj:ype 

mew^ype = simple J.ype / structured J:ype / ^ type.jmme 


‘.simple Jrype - 


ordinal^ype / real ^ 
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ordinal ^pe = 

Y names 

/constant .. constant 
/ ordinal.^ype^ame 

structured Jype ~ 

[ packed ] unpacked structured ^ype 
/ structured J:ypejname 

unpacked structured-type = 

array '[' ordinal-type , ... of type 
/ file of type 

/ record [ field-list [ ,' ] ] end 
/ set of ordinal-type 

field-list = . 

fijeed-part [ ; variant .part ] 

/ variant-part 

fixed-part = (names : type ) ;... 

variant -part — case [ tag .field-name : ] tag-type of variant ;... 
variant = casesonstant-list [ field-list ; ] J ')' 

case sonst ant-list — casesonstant, ... 

case sonstant = constant [ .. constant ] 


- expression - 

variable — (variable jname / fields.ame ) 
j '[' expression , ... ']' 

/ . field jname 

/-I 

factor = 

variable 

/ unsigned sonstant 

/ function-name [ actual-parameter , ... ')' J 

/ sei 

/ ' (■ expression ')' 

/ not factor 

actual -parameter = 
expression 

/ procedure -name / function-name 

set = '[■ [ member , ... ] 

member = expression [ .. expression ] 

term = factor 

{ (*/'/' / div / mod / and ) factor ^ 

simplesxpression = [ sign ] term 
\ - / OT ) term J 


* Type real is not yet ingiieinented. 
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expression = simple expression 

[ (O / - / </ >/<= /<=^ simple expression ] 


. procedure . 

procedure declaration = 
procedure Jieading ; 

( block / directive ) 

function declaration = 
function Jieading ; 

(block / directive ) 

directive = forward / extern / externc 

procedure Jieading = procedure name [ '(' parameter ;... '/] 

function Jieading = function name ['(' parameter ;'/] 

: result Jype 

parameter = 

function Jieading / procedure Jieading 
/names : type 

/ var names : (typejname / array Jype ) 
array Jype ^ = 

array index Jype ; ... 'J' of (typejname / array Jype ) 
index Jype = 

name .. name : ordinal Jype jname 


. statement . 

statement = [ label : ] 

compound^tatement 

/ case expression of case element ;... [ ; ] end 
/for name .*= expression 

(to / downto ) expression 
do statement 
/ goto label 

/ if expression then statement 
[ else statement ] 

/repeat statement ;... until expression 
/while expression do statement 
/ withT^ar^Labie , ... do statement 
/ ( variable / function jname ) := expression 
/ procedure jname [ *(' actual parameter , ... ] 

compound statement = 

begin statement ;... end 


^ array-iype (i.e. conformant arrays) ere not yet implemenied. 


Paaeal 66000 


31 










casejslement - 

( ( case constant / else ) : / otherwise ) 
statement 






9.5. Description of the Parse Tree 



A Pascal source program is translated into a sequence of parse trees 
representing the blocks of the program. A parse tree is like a pascal block 
a list of statements, which in turn are build by lists of expressions and 
statements. The following basic data structures reflect the formal struc¬ 
ture of a tree; the description is enhanced by some informal information 
given below. 

Data structures describing the tree: 

type 

listclass = (lexpr, istatmt); 

statmtclass = (sassign,sbegin,scall,scase,sdownto.sgoto, 
sif.slabel.srepeat.sto.swhile.swith); 

exprclass = ( 

opstore, opdotdot, opset, opnop, 

oprange, oplength, opcomma, opchkp, opchks, opchkr, 
opcasel, opaddr, opaddrof,.oplcst, oplind, oplptr, 
opperiod.opindex, opindexl, opaddrcst, 
opcall, opcallc, opcallf, opproc, 

opcmpa, opcmpb, opcmpc, opcmpf, opcmpi, opcmps, , 

opcmpm, opcmpp, opin, 

opabsi, opabsf, opabss, opoddi, opodds. 

opsqri, opsqrf, opsqrs, 

opinci, opines, opince, 

opdeci, opdecs, opdecc, 

opaddf, opsubf, opmulf, opdlvf 

opaddi, opsubi, opmuli, opdivi. opmodi, 

opadds, opsubs, opmuls, opdivs, opmods, 

opaddm, opsubm, opmulm, opand, opor, 

opnegi, opnegs, opnegf, opnot 

opetoi, opetos, opitoc opitos, opstoi, opstoc, 

opftos, opftoi, opitof, opstof 

oplt, ople, opeq, opge, opgt, opne, 

optrue, opfalse, opltu, opleu, opgeu, opgtu); 


listp = listrec; 

statmtp = statmtrec, 

exprp = exprrec; 

exprrec = 

record 

C£ise ekind : exprclass of 
oplcst : (11: integer); 
opaddr : (l,r: integer); 
oplength : (link: exprp; rr: integer); 
opaddi : (llink.rlink: exprp) 
end: 

listrec = 
record 

next: listp; 

case Ikind: listclass of 
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Istatmt: (statmt: statmtp); 
lexpr; (expr; exprp) 

end; 

statmtrec = 

record 

case sklnd: statmtclass of 
sbegin, sdownto, sgoto, sif, slabel, 
srepeat, sto, swhile, swith: 

(sline; integer; slist: listp); 
scall.sassign; 

(eline: integer; sexpr; exprp) 

end; 

The expression nodes oplcst, opaddr, oplength and opaddi listed in 
exprclass are representatives of four subclasses of exprclass, the 
classification of which can be seen in the following passl fragment 
{outprint.p): 

case ekind of 
oplcst: 

outint(ll); 

opaddr. opcasel, oplptr, oprange: 

begin outint(l); outint(r); end, 

opinci. opines, opince, 
opdeci, opdecs, opdecc, 
opaddrest, oplength, opindexl. opperiod : 
begin outint(rr); 
outexpr (link); end; 


op calif, 

opdotdot.opadds , opsubs , opdivs, opmuls, 
opaddf , opaddi , opaddm , opand , opempa, 
opempb , opempe , opempf , opempi, opempm, 
operapp , opcomma, opdivf , opdivi, opin, 
opindex, opmodi , opmulf , opmuli, opmulm, 
opor , opstore, opsubf , opsubi, opcallc, 
opsubm, opcall , opchkr , opmods, opemps: 

begin outexpr(llink); outexpr(rlink) end; 


opabsi, opabsf, opabss, opoddi, 
opset, opsqri, opsqrf, opsqrs, opodds, 
opproc, opchkp, opchks, opetoi, opeq . opge , 
opgt , opitoc, opitof, opitos, ople , opetos, 
oplind, oplt , opne , opnegi, opnegf, 
opnegs, opnot , opftos, opstoc, opsloi, 
opstof, opftoi, opaddrof: 
outexpr (llink); 

otherwise write('*** error *** unknowTi expression’) 
end (*case*) 

Statements are translated into a list of expressions or statements. 


t 
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Bbegin 

slf 

swhile 

srepeat 

slabel 

sgoto 

sto.sdownto 

svrith 

scall, 

sassign 


statement-list 

expression statement statement 
expression statement 
statement-list expression 
statement 

expression expression statement 
expression Jist statement 

expression 


All the expression nodes aj"e listed together with their successor(s) named 
by a self-describing mnemonic. The names of non terminal nodes are simi¬ 
lar to those in the Pascal syntax definition. The types of the source 
operands turn up as implicit type information in the expression nodes: 
integer (i). short (s), real (f). set (m) and char (c); for example opaddi, 
opadds, etc. (Note: opcallc is "caU extern C procedure" , opcallf if "call 
formal procedure"). 


1) variable 

opaddr 

oplptr 

oplind 

opperiod 

opindex 

opindexl 

opproc 

opaddrof 

oplcst 

2) coercion 


level (1) . offset (r) 
level (1) , offset (r) 
variable (llink) 

variable (link) , address-increment (rr) 

variable (llink) . index (rlink) 

index^xpression (link) , elementsize (rr) 

opaddr 

variable 

constant(ll) 


opctoi, opitoc, opitof, opitos, opctos, 
opftos, opstoc, opstoi. opstof, opftoi 
expression (llink) 

3) data operation 

opaddi. opsubi, opdm, opmuli, opmodi, 
opadds, opsubs, opdivs, opmuls, opmods. 
opaddf, opsubf, opdivf, opmulf, 
opaddm, opmulm, opsubm, 
opand, opor 

left-fixpression(llink), right_expression(rlink) 

opnegi, opnegs. opnegf, 
opnot expression (llink) 
opinci, opines, opince, 
opdeci, opdecs, opdecc 

expression (link) , inc/decrement (rr) 
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4) data relations 

opeq. opne, opge, opgt, ople, oplt, 
opcmpa, opcmpb. opcmpc, 
opcmpi, opcmps, opcmpf, 
opcmpp, opcmpm 

left_expression(llink),right_jexpression(rlink) 
opin element^xpression(llink),set_expression(rlink) * 

5) procedure call 

opcall. opcallf, opcallc 

proc^ddress(llink),parameter Jist(rlink) 
opcomma 

parameter Jist(llink),parameter_expression(rlink) 

6) miscellaneous 


opdotdot / , V 

from_elemjexpression(llink),to_elem_jexpression(rlink) 
opset elementjexpression(llink) 

oplength expression (link) . representation (rr) 
opcomma® call Jist (llink) , procedure .call (rlink) 
opchkp variable 

opchkr expression (llink) . range (rlink) 

oprange lower (1) , upper (r) 


* the set operations opin, opdotdot & opset are always preceded by oplength. Expressions 
representing set elememts must evaluate to a value in the range 0..355. 

® read & write procedures with variable parameter number are realized by a cahJist 
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9.6. PC - Pasced Compiler 

NAME 

pc —Pascal compiler 
SYNCH>SIS 

pc [ option ] ... file ... 

MSCRIPnON 

pc is the UNIX Pascal compiler. It accepts several types of arguments: 

Arguments whose names end with ’.p’ are taken to be Pascal source programs; 
they are compiled, and each object program is left on the file whose name is 
that of the source with '.o' substituted for '.p'. The '.o' file is normally deleted, 
however, if a single Pascal program is compiled and loaded all at one go. 

The following options are interpreted by pc. See id(l) for load options. 

—« Suppress the loading phase of the compilation, and force an object file 

to be produced even if only one program is compiled. 

—d Switch on the debug mode. 

—e Suppress extension warning messages. 

—en Suppress execution (“dry run'’), pc commands. 

—o tmtput 

Name the final output file outpvU. If this option is used the file 'a.out' 
will be left undisturbed. 

—p Arrange for the compiler to produce code which counts the number of 

times each routine is called, also, if loading takes place, replace the 
standard startup routine by one which automatically calls monitor{3) at 
the start and arranges to write out a mon.out file at normal termination 
of execution of the object program. An execution profile can then be 
generated by use of pro/(l). 

—w Suppress warning messages. 

-^Dna-TTUB-def 
—Dn-ame 

Define the name to the preprocessor, as if by '^define'. If no definition is 
given, the name is defined as 1. 

—Idir Files of 'jjfinclude' type whose names do not begin with ’/' are always 
sought first in the directory of the file argument, then in directories 
named in —I options, then in directories on a standard list. 

—1. Addtionally generates listings on corresponding files suffixed '.1'. 

—P Run only the macro preprocessor and place the result for each '.p' file 

in a corresponding '.i' file and has no lines in it. 

—S Compile the named Pascal programs and leave the assembler-language 

output on corresponding files suffixed '.s'. 

—T Trace and print pc commands. Temporary files are not deleted. 

—Uname 

Remove any initial definition of name. 

Other arguments are taken to be either loader(ld) option arguments, or 
Pascal-compatible object programs, typically produced by an earlier pc run, or 
perhaps libraries of Pascal-compatible routines. These programs, together with 
the results of any compilations specified, are loaded (in the order given) to 
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produce an executable program with name a.out. 


TILES 

file.i 

file.l 

file.o 

■file.p 

file.s 

a^.out 

/tmp/ptm? 

/lib/cpp 

/lib/pass[l2] 

/Ub/c2 

/lib/perror 

/lib/prtO.o 

/lib/mprtO.o 

/lib/libp.a 

/lib/libc.a 

/usr/include 


preprocessor output file 
error and listing file 
object file 
input file 

assembler listing file 

loaded (linked) output 

temporaries for pc 

preprocessor 

compiler for pc 

compiler pass3 

prints errors and listing 

runtime startoff 

startoff for profiling 

pascal runtime-support 

standard library, see intro{3) 

standard directory for '^include' files 


K. Jensen and N. ¥irth Pascal User Manual and Report Springer Verlag 1976 
monitor(3), prof(l), adb(:), ld(l) 

DIAGNOSllCS . , , u w , * 

Th6 diagnostics produced by pc itself are intended to be self^explanacory. 

Occasional messages may be produced by the loader (Id). 


BUGS 

None knowTL, of course. 
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9.7. Reserved Identifiers 


The following identifiers are predefined by the Pascal language. 


abs 

false 

pack 

sqr 

ad dr 

get 

page 

sqrt 

address 

halt 

pred 


arctan 

integer 

put 

succ 

boolean 

In 

read 

text 

cheu" 

mark 

readln 

true 

chr 

maxint 

real 

trunc 

convert 

minint 

release 

unpack 

cos 

new 

rewrite 

write 

eof 

nil 

round 

writeln 

eoln 

odd 

short 


exp 

ord 

sin 



Further there are identifiers used by the Pascal run time system that are 
referenced at linking time. Warning: the user might use this identifiers to 
define own procedures or data and the linker Id will reference the users' 
entity and report no error. 


_entry 

_popen 

-openfileindx 

_pwb 

-pjerr 

-jenviron 

^rdr 

-peoln 

_pwrr 

-ppack 

-openfiles 

-pwrc 

_argc 

-error 

-prdsh 

_pget 

-plirn 

-ppage 

^bvec 

^wre 1 

_pwrs 

-jerrorexit 

-prele 

-phigh 

_argv 

-pperr 

-pease 

-PVTCS 

-plow 

-ferror 

-prese 

-piabs 

_pwrsh 

^put 

-pcerr 

^■WTf 

-jclosefiles 

-final 

-prewr 

-pierr 

»pmark 

-prdc 

-pclos 

-pwri 

_syserr 

-flushbuffer 

-pserr 

-pisqr 

jcopen 

-prdi 

-pdivlO 

.^wrln 

_pnew 

-localfile 

-punpa 


-endoffile 

-prdln 

-peof 
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i LEARN SNOBOL. 1 

i_I 


Snobol is a programming language witn some of the best features of 
Basic ana Lisp: 

— easy to learn 

— 'ruDber memory* for strings, lists, associative tables 
-- interactive. 



These features make Snobol good for : 

— text editing jobs. (EOT is a lousy programming language). 

— small interactive data bases 

— small translators; mini-languages, macros, language front 
ends for e.g. Decision tables, networks, testing. 




This introouction is for people who Know how to program, and want a 
quick overview of Snobol. Look at the syntax, stuay some examples, 
tnen try your own. 

Snobol runs on the Perxeo MooOuu Unix, in a very small Kbytes) ana 
fast dialect called ‘Spitbol*. t3S2QUu has only an ancient anc slow 
Snobol interpreter). 


CONTENTS. 

Elements of Snobol: 

Strings 

Arrays ana tables 
Statement syntax 
Gotos 

If, For, function Oef 

Functions 

Data structures 

Basic pattern matcliing 

Built-in functions 

Running Perkeo Spitool: 

Testing, tracing 

Spitbol / SnoDOl Differences 

Example programs . 






STRINGS 


Strings in Snobol can be assigned, put together, input and output, 
with little fuss; 

X = 'hello* 

Hello_Hello = X X 

Title = 'Dear ' Name *,' 

OUTPUT * 'echo; ' INPUT 


'X = ...' creates a new variable or box nameo 'X*, on the spot; Snobol 
has no variable declarations. 

Strings are put together (concatenated) just by listing them, 
separated by blanks; thus Hello_Hello is 'hellohello' . 

'OUTPUT = writes a line to the terminal, INPUT reads one. 

'fluote' and "Quote" are the same. "'" is a single quote, "" a double 
quote. 


The following Snobol program just echoes each input line, with its 
size and line number. It uses 'FOR .. NEXT' (described below) to get 
lines of input; 

FOR line = INPUT 

line_nr = line__nr + 1 

OUTPUT = line_nr ' ' SIZEUine) ' ' line 
NEXT 


Numbers are treated in context as strings, and strings as numoers. 
For example; 

TWO = '£' 

OUTPUT = TWO + TWO 
does what you would expect. 

New variables are initially ", the so-called nil string of length 0. 
" + z is E. 

Taxing strings apart, like 'hello there* —> 'hello', ' *, 'there' is 
more interesting than putting them together. This is introouceo in 
the section on 'Pattern Matching* . 




A R R A Y S SPO TABLES. 


A = ARRAY( lU ; 

creates 1u variables, A<1> .. A<1u>, which can be useo just like 

orainary variables: 

A<.Z> = A<j> + INPUT 

A<j> = 'hello' 


T = TABLE I 1U ) 

creates an associative table, which is like a telephone book, or an 
array inoexed by strings; 

Phone = TABLED Tu ) 

Phone< ’Jones' > = 12j 
Pnone< 'Smith' > = 456 


Tables have many uses in Snobol: sets, maps, symbol tables. They re 
very simple and very useful. Every language shoulo have tables. 


v.Fine points: 

Table and array elements can be anything at all: numbers, 
strings, recoros, other tables, trees, theorems ... Table 
indices (keys) can also be anything. 


Tables are initially 

empty, T<x> 

is nil for all x. 

Thus; 

T<x> = T<x> 

' ' num 

grows a list 

of numoers: 

T<.x> = '• 

' ' num 

on the first 

time thru. 

T<x> = 

' ' num ' 

' numZ on tne 

second, ... 


See the example program Xref below. 


Multi-oimensional arrays are declared like: 

A = ARRAYC '10,26' ) 
or: A = ARRAYv '-10:10,2,a,4' ) . 


'lu' in 'TABLEl 10 )' is just advice to Snobol; any number of 
key-value pairs can oe put in tne table, but 10 is most 
efficient. TABLEi lOJU ) would waste some space, JABLEi 2 j 
some time. 





SN080L ST ATEMENT SY N T A X 


# 


(label) Statement (gotos) 

Snobol is line oriented. Statements are written; 
one per line: 

STATEMENT 

or several per line: 

S1; S£; S5 ... 

or spread over several lines: 

LONG STATEMENT 

in column 1 continues the previous line. 

Column 1 is usually blank. But 

* in column 1 starts a comment line. With 
to end-of-line is also a comment 

LABEL — non-blank column 1 starts a label 

There are several kinds of statements: 

— normal: assignments, function calls; 

X = X + 1 

X = Fund j, k + 1 ) 

(N.S. Snobol insists on blanks around binary ops ! 

— IF ELSE FI FOR NEXT DEF 'Structured Snobol* 

— pattern matching statements use funny operators 
descriOcu oelow, for example; line ? pattern 


Sniffi, 



statements 

? => S . 2 

=> woro 


f 





FAIL. 


6 0 T 0 s. 


Original Snobol has no xF - FOR control flow statements, only GOTOs. 
First GOTOs will be described, so that you can reao original Snobol, 
and then an if - FOR preprocessor, which can msKe programs more 
readable. 


Snobol for 'GOTO Label* is * ilLabel)' after a statement. Labels 
start in column 1 ana ena with a blank, not with . 


Snobol functions can signal 'Fail* : 

fund) ;Flfail) S(succeea) 

is SnoDol for 'IF fund) fails THEN GOTO fail ELSE GOTO succeed' 


'Fail' is useful for signalling errors: 

X = fund) ;Flerror) 


and for looping: 

FOR X * gene rat e__next C X ) 

• • • 

NEXT 


Both built-in functions and user functions can 'fail'. For example, 
the built-in iOENTC x, y ) fails if x is not ioentical to y. User 
functions say ':(RETURN)' to return, •:(FRETURN)' to signal failure 
ana return. One can think of 'Fail' as an extra wire coming out of 
the function, beside its oata output. 

In pattern matching, 'fail' means 'back up, try an alternative'. 


Failure terminates a whole statement : 

X = IDENTl X, " ) 'aefault' 
is Snobol for 'xF X ~ " THEN X = 'aefault' 

(ELSE 00 nothing). 


(Fine point: Spitbol but not Snobol has a 'conoitional OR', 
unfortunately with no name; the expression 

( a, b, c ... ) 

evoluates a, b, c ... in turn until one succeeds, which is 
then the value of the expression. if none succeed, the 

whole statement fails as usual. Examples: 
max = (GT(x,y) x, y y 

X = ( try_thislX^, try_that(X), 'too baa.-' ) 

Conoitional ANP is just catenation, as in; 

IF LEi G, n i LE( n, 9 J 





Structurea Snobol; I F 


FOR 


D £ F . 


Sniffi is a simple preprocessor of IF^ FOR ano OEF statements to 
SnoDol GOTOs. (This takes about 2 pages of Snobol). 

IF test 

• • • 

L ELSE if test 


L ELSE ... 

Fi 

Goes what you would expect. The word 'THEN' is optional. 

IF var == 
value_a : 

• ■ • 

volue_b : 

• • • 

L ELSc ... 

FI 

ooes the first block of statements if IDEiMTC var, value_a ), the 
second if iOENTC var, value__b ), and so on. Each case volue is on a 
line oy itself, enoing with a ':' . 


Sniffi also expands 

'IF X == y' 

to 

*IDENT( X, y ) 

;FCelse)' 


'IF X /= y' 

to 

'DIFFERl X, y ) 

:F(else)' 

and 

'IF no x' 

to 

'IDENT( X, " ) 

:F leise)* 

FOR 

statement 





NEXT 

loops until 'statement' signals 'Fail*. This has many uses: 

FOR line = INPUT 

loops thru lines from the standard input file, until end-of-file. 
FOR line ? get_wora => word 

loops thru the 'word's that pattern 'gct_worc' scans from 'line'. 


FOR j = 1 .. n 

m m m 

G 06 S woat you irfOuLcl expect, n ynay be cnapgeo within tne loop. 


iwMany more kinds of 

FOR are useful in 

paper 

programs, but are 

usually expanoeo by 

nano: 



FuR 

woro iN line 



FOR 

nooe IN list 



FOR 

in nooe, in_arc 

—> 

nooe iN in a network 

FOR 

next movesi game_ 

board 

) 


Sniffi CaP easily be changed to expano such FuRs. 





FUNCTIONS. 


OEF funcC argi, argZ ... ) local!, localZ ... 

starts 5 function definition, which ends at the next DEF func or 
OEF Iblanic). Snobol defaults all variables to global, except those in 
DEF local lists. Locals are initially nil. Sniffi expands OEF to a 
Snobol DEFINE, plus the jump arouna the function booy neeoed in 
straight Snobol, plus a *:(RETURN)* at the end. 

To return a value, assign it to the 'func* name. To return, say 
(RETURN)'; to signal failure, ':(FRETURN)* . 

Example: 

OEF fibl n ) 

IF LE( n, 3 ) 

THEN fib = n 

ELSE fib = fibl n - 1 ) + fibt. n - 2 ) 

FI 

Example: 

DEF centrel string, width ) nspace 

nspace - (widtn - SIZE^.string)) / 2 
centre = OUPLl ' ', nspace ) string 
OEF towerl n ) j 

FOR j = 1 .. n 

stars = OUPLl 2 * j - 1 ) 

output * centrel stars, 8U ) 

NEXT 


Example (using tne global pattern 'get_wora* defined below) : 
OEF change_namesI line ) word, c, to_woro 
** FOR words in line: 

** if word is in change_table, change it. 

FOR line ? get_wora => word 

tojword = change_table< word > 

** is word in the ch3nge_tabie ? 

iF to_word /= *' 

line ? word = to_woro 
FI 


NEXT 


tFine points: 

With DEF fl argi, arg2, argj ), calling fu) is the same as 
ft X, ", " ). This is useful for switches and default 

arguments; f probably starts with 

arg2 = i.0ENTlarg2) oefault_2 
argj = lOENTlargi) oefault^j 

iiost arguments are local to functions (call Dy value), but 
tables, data recoros, and files cun be permanently changed. 
There are in fact 'address of ana 'arrow' operators, but 
they're seldom used: 

Snobol; .var ivar 

C; ivar *var 

PL/i; AoOfitvary var-> 








DATA Structures. 

DaTAC 'Pair^L,R>' ) 

declares a uata structure or record type with fields L and R. Then 


apair = Pairi 'left', 42 ) 


creates a new pair, 
and initializes it. 
increments the 42 to 4j. 
is true. 

nested L 'left', L 2, 3 Jj 


Rtapair) * Rlopair) + 1 
Llapair) *= 'left' 
R(apair) * Pairi 2, 3 ) 


Some more data structures, with example uses: 

DATaI 'datelday,month,year)' ) 
today = datel 6, 'Nov', 31 ) 

DATAI 'personlname,department,age,hair_colour,sex;' ) 
aperson = persont 'John Doe*, 'ZTi*, 32, 'brown', 'm* ; 

DATAI 'Autoimake,year,colour,license__nr)' ) 
col our I my_auto ) = 'yellow* 

DATAI 'compLexlRe,Im)' j 
J - complexl u.u, 1.u ) 

** (but reals aren't implemented on Perkeo). 

DATAI 'consUar,cdr)' ) 

DATAI 'list(vdl,next)' ) 

V = valialist); alist = nextialist) 

Snobol, like Lisp, ooesn't care about the types of fielos; they can be 
numbers, strings, taoles, nested records ... (out Snobol ooes cneck 
that DATATYPElx) == 'Pair' before using Llx) ). Tnus Snobol depends 
more than roost languages on well-chosen variable, field and function 
names to make programs reaoaole. Some Snobol programs try to encode 
everything in long text strings; well-named data structures are 
better. 

DATA annoyingly neecs a quoted argument string, with no blanks. 

Just as with functions, missing arguments are filled out with nil s. 
Thus datet 6 ) is the same as oatel 6, ", '' ). 







* -cxomple aata structure: trees:- 

0ATA( 'new_tree(op/L,R)' ) 

* op : op_type == oneoft ... ) 

* L, R : tree or id or nunber. 

t * new__treec ' = 'X'^ 

+ pew_tree^. ' + 2, 2 )) 

* — X = 2 2; see example program Parse. 

* — A tree-walker^ rather Lispy, 

* — to apply a function to all leaves of a tree: 


OEF 

walkl atree, leaffun 

c ) 

IF 

DATATYPElatree) == 'new tree' 


walkl Llatree), 

leaffunc ) 

ELSE 

walkl Rlatree), 

leaffunc ; 

Fi 

APPLYl leaffunc. 

atree ) 


*— -—- Example data structure: stacks: 

OATAC 'push(top^pop)' ) 

* top : any; pop : a stack. 


stak = push( 1 ) — 

stak = pushl 2, stak ) 
stak = pushl stak ) 
stak = popl stak ) 
toplstak) = toplstak) + lu 
s = stak 

for_yals val = topis) 

• • • 

OIFFERl s = popls)) 


toplstak; == 1, poplstak) = 

toplstax) == 2 

toplstak) == j 

toplstak) == 2 again 

— 2 to 12 

F&R val IN stak 

:Slfor Vais) 


*-Example data structure: demons. 

Associative taoles can store properties such as numoers ana strings, 
or can store 'oemons*: procedures wnich look arouno at their context 
before ooing something. For example, some screen editors have 'live* 
function keys, wnich can be arbitrary procedures, in Snobol one can 
simply say: 

Action< key > = .demon 

ano when 'key' is typeo: 

APPLY I OiFFERl «ction< key >) 


to call 'demon' lif there is one for that key). This style of data 
structuring can be interesting. 













Basic Pattern Matching 


line ? pattern 

line ? patternl *> wora patterns => woraS ... 

line ? 'change this* = 'to that' 


scan a line for a pattern, and way pick off substrings, change watched 
substrings, and set a 'cursor*. Patterns can oe very complex, not to 
say APLish; 1 describe only a few basic ones. (Original Snobol writes 
'j»' or '.' for '=>', ana writes just ‘line pattern' insteao of 
'line ? pattern' ). 


Patterns are composed of: 


— literal strings 'exact match' 


~ built-in matching functions: 


ANY( ' 
SPAN I ' 
BREAK( ' 
TAB( n ) 
LEN( n ) 
AR3 
REM 


' ) -- one character from a set 

' ) — one or more characters from a set 

' ; ~ up to a character from a set 

— up to tne n th character 

— n characters 

— anytning 

— the rest of the line 


Pname of a previously defined pattern 


— *Pname of a forward 

— sequences: Patl 

~ alternatives: Patl 


or recursive pattern 
Pate ... 

I Pat2 1 ... 


— pattern *> word : stores tne matchea substring in 'woro' 


Some examples of patterns : 

Get everything up to a blank or comma, ana save it in 'word*: 

line ? SREAKC ,') => word 

('Up to' would have been a better name for BREAK, ana 
'Some' better than SPAN ;. 


Fine a letter, then get some letters and numbers : 
alph = 'abcdefghijklmnopqrstuvwxyz_' 
get id * BREAKlalph) SPANvalph *012^456709*) => io 


Get everything up to a blanx or comma, or if there is none, get the 
rest of the line: 

line ? (BREAK(' , REi<l> => word 







Define a pattern to match U or more blanks ISPAN matches 1 or more; 
bl = SPANC ') j •• 


Match a function or procedure name : 

line ? bl ('function ' | 'procedure ') bl get io 


Match 

+ 


prices like 
price » '»* 


*5.99 (and also *5.9999 ); 

SPAN(•0125456769') => collars 

SPAN('0125456769') ) ") => cents 


Match prices like S5.99 exactly: 

cent = ANY('Cl 25456789') 

price * 'S' SPAN('0125456769') => dollars 

+ (’.' cent cent 1 '* ) => cents 


Match: 'the red' i 'the green' 

line ? v'the ' | 'a ') 


1 'a red' | 'a green' : 
('red' I 'green') 


Alternatives are tried left to right; thus in 
'an alternative' ? 'a* j 'an' 

'a' matches, out leaves the 'n' hanging, tarite 'an' | 'a' . 


To match a pattern only at the beginning of a line: 
line ? TAB(U) a_pattern 

if the global switch eANCHOfl is 1, all patterns are 'anchored' 
match only at the beginning. 


Patterns can be BNF-l 
element 

+ 

product 

sum 


ike : 

= SPAN(alph_num) 
i '(' *sum ')' 
= element (('*' 
* product ((*+' 


'/') *product I ''; 
'“') *sum I ") 


in practice, 1 very seldom use BNFs; see 
below for a real string-to-tree parser. 


to 


the 


example program Parse 






Cursory 


To impleinent 'FOR wore IN line', ops wants to start scanning for a 
word where the previous one left off. Snobol ooes this witn a 
'cursor', which can be pictureo as a little arrow pointing just before 
the next character to be scanneo: 


cursor position u: 

Be 

wi la 

of 

tongue 

clearly 

cursor position 2: 


wi la 

of 

tongue 

clearly 


'ic* in the midole of a pattern meons 'set c to this position'. 

'FOR woro IN line' is then done by: 

line ? TABU) getjword 3c 

TABU) jumps to cursor position c; get_word gets a word; 3c sets c 
after the woro, ready for the next time around. 


Another example of '3c' uses the builtin S.ALPHABET, which on Perkeo is 
a string of the 126 Ascii characters in order: 

iALPHABET ? BREAKUhar) 3order 
gets a char's order in the Ascii alpnabet, u to 127. 

^ALPHABET ? TAB In) LENC1) => char 
goes just the reverse: gets the n th Ascii character. 


Constant patterns are often defined at the top of a program: 
aIph • ... 

get word = TAB(*c) 3REAKt.alph) SPAN(alpn) => word 3c 

• • • 

c = u 

FuR line ? get_word 

■ • • 

rt uisaovantage of such a get_woro is that is uses globals c ana word. 
Settle on a convention, such as c for cursor and get_X to gel an X. 


After a pattern matches, the matched substring can be replaced ; 
line 'i ‘cnange this' = 'to tiiat' 


•be clear' ? 'clear' x = 'not un' x 

— 'oe not unclear' 


* •— change *1 == r‘ •“> 'IDENTll, r)*' 

line ; BREAKt'=') => L '==' RcM => R 
+ = 'iDENTC L ', • R ')’ 


* ““ oelete all the blanks in a line: 

* fina 1 or more olanks, delete tnem, loop. 

* SPAN signals 'Fail' when all the blanks are gone, 

squeeze line ? SPANC " :Slsquee 2 e; 




Built - in 


Functions 




xDENT! 

X, 

y ) 

sue 

ceeds if x 

IDENT! 

X 

) 

is 

the same as 

DIFFER! 

X, 

y > 

is 

the same as 

EU HE 

LT 

LE 

6T 

6E( m, n ) 

LEd LNE 

LLT 

LLE 

LGT LGEv 


IDENTl X, •' ), 
•not lOENT*. 


else fails. 
Lisp (null x) 


(Note: 

but 

Thus in 


IDENTv 5, 

EU( 5, 
tables/ T<5> 


•5* 

•5* 


compare numbers, ana succeed or fail, 
n ) compare strings lexically, ana 
succeea or fail. 

) fails, integer /= string, 

) converts '5' to 5 and succeeds. 
DIFFERS from T<'5'>; for tables inoexea 


Dy numbers, write T< +str > or T< CONVERK str, 'INTEGER' )>. 


DATATYPE( x ) 


is 'INTEGER' for integers, 

'REAL* for reals (not on Perkeo), 

'STRING' for strings (including the nil string;, 
'ARRAY* for arrays, 

'TABLE' for tables, 

'PATTERN' for patterns 

else the name of a user-oefined data type: see DATA. 


CuNVERT( X, datatype ) converts if it can, or fails. 

CuNVERTt a table, 'ARRAY' ) converts a table to an n by 2 array. 


0UPL( string, ntimes ) ouplicates a string n times; 
DUPL is'*****'. 


INPUTC .in ,, • in_fi le__name' ) opens a file for input, 

OUTPUT( .out ,, 'out__file_name‘ ) opens for output. Then 

line = in — reaos a line from 'in_file_name', and 

out = ... — writes a line to 'out_file_name' . 

FOR line = in — loops until 'in' fails, on end-of-file. 


The names INPUT, OUTPUT, and on Perkeo TERMINAL, 
TERMINAL reaos ana writes without newlines. 


are pre-openeo. 


APPLY! func_name, args ) calls the 'func' with the 'args'. This is 
useful for applying a function to all the elements of a list or tree, 
or for Li spy 'demons'. 



Snobol system switches and counters huve names starting witn 'Ci'. The 
most common ones; 

^ANCHOR =1 — ancnor all puitern matches to start at TAoiu;. 

iFTRACE = n — trace the next n function calls ano'returns. 

aTRACE = 2u; TRACE! .x >; TRACEt .y ) 

— trace the next 2u assignments to x ana y . 

Later in the run, iTRACE = luO woulu then trace the next 
luu assignments to x, y, ana otncr TRACE a variables. 
STOPTRt .X ) stops tracing of x. 




S p i t b 0 I 

fast 

line ? pattern 

atablcL j j. or atable< j > 

Upper ana lower case Ascii 
(rcser^eu worcis lower CuSe^ 

Perkeo Unix i/0 

Reals not implemented on Perkeo 


Snobol aifferences. 

very slow 
line pattern 
atable< j > 

Upper-c«se Ebcaic 

Fortran formatted I/O 
Reals 


Language elements and built-in functions in Spitbol but not Snobol: 

= is a normal binary operator: 

X = y = atablei j = j + 1 j 

Conditional or: 

I 6Ttx,y) X, y ) 

Error trapping: Setexit 

SORT( table ) yields a 2-column array. 

LPA0( string, width ) paas a string with blanks on the left, 

RPA0( string, width ) paas on the right, for nice columnar output. 


The Sniffi preprocessor changes all '=> 
deletes all ' ? ', and changes to 
terminal acts as rubout;. 


' to •$ ' . BS2u00 Sniffi 
* • (because ' ' on my 3S2uuu 





TESTING. 


The full Snobol language is available at run-time; variables can be 
printea, changea, and traced, during a run. The function *inO* in 
file o.s (/usr/sar/bz/sno/d.s) reads INPUT lines, and intercepts 

? immeoiate Snobol 

lines starting with '?' for immeoiate excecution. for testing, put 
O.s ahead of your program, and change INPUT to inO . Then you can 
type at run time: 

? var — print a variable 

— ( int) prefixes ' output = var' ) 

? var = 43 

? var = neu_tree( 'X', sub_tree ) 

? DATATYPE lx) — if in doubt. 

(Note that OmTATYPEI " ) is 'STRING') . 

? dl table__or_array ) — displays all indices and values 

? OUMPl 1 ) — dump all variables 

? &FTRACE * 2U — trace the next 2Q function call / returns 

? &TRACE = 2U; TRACEl .x ); TRACEl .y ) 

— trace the next 20 assignments to x and y 






AcIcPOi^leageinants. 


1 thank «y colleagues 0. KrsU, F. Schindler, and U. Weng-Seckmann 
for their help with this paper. 
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S N 0 B 0 L examples 


Many: expand ... <red green blue> ... 

Turtle: draw patterns on an Owl screen 
Kaffee: a little data base 
Trenn: hy-phen-a-tion 

Ineq: show e.g. ' x <= y < 2+3 ' on a screen 

Baum: caller -> called function tree 

Fortrace: source-level trace Fortran programs 
Hac: minimal macro expander 

e: simple line-oriented editor 

Xref: cross-reference lister 





* 22 Okt aany.snif ... <a b c> <x y z> —> ... ax ay az bx by bz cx c^z 

* to generate aany e.g. coapiler test cases or Rubik's cube noves^ 

* expand ... <a b c> ... '~> ... a ... 

e ...b... 

e ...c... 

* for exaaple: 

e if <$hort int unsigned_int long> <<**/=> <short int 0 1> 

* >—> all 4*3*4 caTes: if short < short 

^ m m m 

* if long /- 1 


def aanyl line ) list, x, R, c 

if line ? break('<') *> L '<* breakO') «> list '>' rem => R 
list ? tab(O) spanC ') Sc 
list * list * ' 

for list ? tab(c) breakC *) *> x spanC ') 9c 
■any( L x R > 
next 

else output > line 

fi 

def 




f 



* 23 Okt turtle.s draw simple patterns: Pen ***, Left 5 Down 6 ... 

** ~copy d.s owl.s 

* draw simple patterns a la LOGO: 

* (really needs a raster graphic terminal & joystick) 

* cursor left^ rights up^ dowin (number) : 

* draw (number times) with current pen 

* Pen I P string : 

* draw with 'string*, e.g. Pen * or Pen hello 

* (does Pen <nil> work like no pen ?) 

* Go I G line column 

* Clear j C 

..... 


* init: 

pen * back = Cleft 

* patterns: 

bl * spanC ') | " 
o9 s spanC 0123456789') 

get_num = bl spanC0123456789') => num | '' 

get pen » bl (breakC,') | rem) => pen 


★ -—- 

def draw( line ) c 
num s 1 

if line ? tab(c) + 


** 


— big case: arrow 

/ Pen / 

• • • 




Cright 

get^num 

ac : 









terminal = 

dupK pen 

, num ) 





Cleft 

get_num 

ac : 









terminal - 

pen back 

dupK back 

pen back. 

num - 1 

) 

back 

Cup 

get_num 

ac : 









terminal * 

pen back 

dupK Cup 

pen back. 

num - 1 

) 

Cup 

Cdown 

get_num 

ac : 









terminal = 

pen back 

dupK Cdown 

pen back. 

num - 1 

) 

Cdown 

('pen' 

1 ’P') 

get pen ac 

• 








back s dupK 

Cleft, sizelpen)) 




('go' 

1 'g') o9 »> line o9 => col 

ac : 







terminal » 

cursor_to( line, col 

) 





('clear' | 'c') 8c : 

terminal « Clearwin 


else 


terminal = '?' :(freturn) 
fi 

line ? tab(c) spanC ,') Sc 

line ? tab(c) rpos(O) :s(return) f(draw) 

* — loop thru comi, com2 ... separated by blanks and commas 

def 








** 8 Oez snobol: Kaffee / Tee 
** (saaple output below). 

** bzouy ZTI INF 212. 


Abrechnung: kaffee.liste —> kaffee.aus 


**. 


naae « array( oO ) 
cups s arrayC 30 ) 
paid - array( 50 ) 

a pattern to scan Ci-9 and . — 

nua * span('0125456789.'} 

define a function: nojdotC '1.25' ) = 123 — 

def no_dot( price ) 

no_aot * price; nojflot ? *.' * " 

0M( 123 ) s 'OH 1.23' -- 

def one pf ) 

pf = le( 0, pf ) le( pf, 9 ) 'O' pf 

pf ? rpos(2) * '.' 

DM * 'DM ' lpaa( pf, 5 ) 
def 


** ——-—— reaa the 'Name 1.5' 


list 


**— 


output s • Anzahl Tassen Lschon bezahltO ?' 

inputl .liste,, 'kaffee.liste' ) 
for line * liste 
n = n + 1 

line ? breakC ') *> nameLnO 

spanC ') num *> cup__size 
terminal * rpad( nameCnj, 12, '.' ) 
if (in = input) /= '' 

in ? num «> ncups rem *> pd 
cupsLnj * no_dot( cup_size ) * ncups 
paidilnj = no_dot( pd ) 
total_cups = total cups + cupsLnj 
fi 

next 


** 

** 


♦ 

♦ 


- compute each person's cost 


terminal ^ 'Gesamt Ausgabe .'; Gesamt - no_dot( input ) 
output( .aus,, 'kaffee.aus' ) 
aus * dupl V. 78 ) 

for j * 1 .. n 
if CUPSLjj /= ’* 

dm = cupsLjj * Gesamt / total_cups 
aus - rpao^ nametjj, 14 > 

lpaa( cupsLjj / 10, 5) * Tassen —> * 

WK dm - paidLjj) 
aus * dupl( 78 ) 

totaljflm = totaljdm + am 
fi 

next 


end 


f 













Sample output of the 


Kaffee — program: 




Brix 

48 

Tassen 

-> 

DM 7.29 

Bzowy 

135 

Tassen 

—> 

DM -2.05 

Heinemarfo 

120 

Tassen 

—> 

DM 8.38 

Keller 

o2 

Tassen 

—> 

DM 9.42 

Muehlmann 

5 

Tassen 

-> 

DM .79 

Petersen 

1 

Tassen 

— > 

DM .22 

Schindler 

153 

Tassen 

-> 

DM 13.26 

Schuchmann 

3 

Tassen 

-> 

DM .45 

Weng-Beckmann 

31 

Tassen 

—> 

DM -16.72 

Wiedemann 

21 

Tassen 

-> 

DM -9.88 

Student-1 

8 

Tassen 

—> 

DM 1.21 


Preis pro Normtasse * DM .15 = DM 89.65 / 590 




f 























t : t 


* trenn.snobol 26 Nov 


** Trenn rules: 

vv except ei ie su ... 
v-Kw K a consonant or ch sh sch ... 

k-kv except ch sh sch ... 

aisallowea: -bl b“l bl“ -ng n-g gn- 

keep first 3 or 4 letters together ? 

-nolist 


*— 



Kblock s 

•ch‘ 1 

•sf 1 'ph* 1 'th' 

1 *sh' 




Kblock3 

s ‘sch* 





Xblock s 

•ng* 1 

•bl* 1 'pi' i 'dl* 

1 'tl' 

1 'gi* 1 

•kr 

•f 


i 

•br* 1 'pr* 

1 'tr* 

1 'gr* 1 

•kr' 1 'gn' 


Ublock - 

•ei* i 

'ie* 1 *au' 1 *eu' 

1 *ae * 

1 'oe* 1 

'ue' 1 'ui* 


Ublocko 

s 'aeu' 





Rules ~ 

•VV 1 

•UV 1 'VU' 





1 

'VKV 1 

•UKV I 'VKU' 




♦ 

i 

•vccv 1 

•UCCV 1 ’VCCU* 1 

•uccu* 

1 'VCCCV 

1 'KCCCV 

+ 

1 

•HKV 1 

•KKU* 





Sanchor * 0 


def trennt word ) c 

code « replacel word, 'ABCDEFGHlJKLMNuPQRSTUVUXYZ', 

* 'obcdefghijklwnopqrstuvwxyz' ) 

if code ? tobl2) anyCaeiou') * 'UUU* 
else code ? len(5) * *CCC' 

** => first 3 or 4 letters stay together ? 

fi 

for code ? Kblock * 'CC 
next 

for code ? Kblock3 * 'CCC 
next 

for code ? Ublock * 'UU' 
next 

for code ? Ublock3 - 'UUU* 
next 

for code ? Xblock * 'XX* 
next 

code - replacel code, 'abcdefghijklnnopqrstuvwxyz', 

* 'VKKKVKKKVKKKKKVXKKKKVKKKKK' } 

c * 2 

* W —> V-V usw. — 
for code ? len(c) Sc Rules 

cooe ? poslc +1) * *-' 
word ? poslc +1) * 

next 

trenn * woro 
oef 






* Mittwoch 29 Juli i n e q . s : parse row of inequalities, 2D out 

* x<*y<Z“2 xxxxxxxxxx 

* yyyyyyyyyy • • Z 2 .zzzzzzzz 

* ineq in; parses * x +-n <* y*^n < ... ' —> ^var, mum 

* ineq"”out; ivar, inum “■> 2-dimensional output. 


* patterns — , 

name * span( ' 0123456789abcdefghijklmnopqrstuvwxyz' 

4. ” 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ) 

num * any( ) spanC *0125456789' ) j " 

get var nuro * name var num n 3c 

ftalphabet ? tab(IO) lend) S nl 

ivar * arrayl 10 ) 
inum » arrayl 10 ) 


* • jj +_n <» y+-n < z+-n ... * ivar, inum< 1..nvar > 


def ineq_in( line ) c, n 
line * no_blank( line ) 
line ? ge^var_num 
ivarCl 3 = var 
inumC13 = +n 
nvar * 1 

for line ? tab(c) ( '<=’ I '<’ ) *> It get_var_num 
n * ( identl *<*, It ) n - 1 
nvar » nvar + 1 
ivarCnvar3 * var 
inumlLnvar3 * +n 

next 


X <= y < z ~> xxxxxxxxxx 

yyyyyyyyyy zzzzzzzzzz 


def ineqjoutO j, line, gap 
for j * 1 .. nvar 

line * line dupK ivarCj3, 10 ) 
gap * inumCj ♦ 13 - inumCj3 
line * line ( eql gap, 0 ) * '/ 

gt( gap, 0 ) dupU * . gap ), 

nl dupU ' ', sizelline) + gap ) 

next 


def 























call tree; proc A 


> B, C —> C2 


* 20 Okt 


baun.snobol 


* 

* build the proc / call tree of a pl/m program (functions 

* print it out nicely indented: 

* proc A ~> B 

* C —> C1 C2 ... 

* 


ein » tableC 100 ) 

aus « table( 50 ) 

level * table( 50 ) 

schon^aus * tableC 100 ) 
out iTnum ■ 1 


(anchor « 0 

input( .read ); (trim * 1; 
output( .out ) 
bl * spanC ') 1 " 


# 


def baum( proC/ einrueck ) sohn, soehne 
soehne - ausC proc 2 
if *= soehne 

out * einrueck proc 
out linum = out__linum + 1 

else if ~ schon_ausL proc 2 

schonjsusC proc 2 » out_linum 
out *”einrueck proc 
out linum - out linum 1 
soehne ? * '•' = " 

for soehne ? break(' ') *> sohn ' ' * " 

baum( sohn^ einrueck ' ' ) 

next 

else 

out » einrueck proc ' ... ' schon^ausL proc 2 
out linum = out linum + 1 



def add( elt, list ) 

* — encode list as ' a b c ... ' 

if = Slist 

Slist * ' ' elt ' ' 
else if Slist ? ' ' elt ' ' 
else Slist » Slist elt ' ' 
fi 



long string 


def aax( m, val ) 

Sffl = lt( Sm^ val ) val 

def 


f 



for line * * read 


break(':') *> proc 

breakCl ;*) => call 

proc —> call —- 




if line ? bl 'proc * bl 

else if line ? bl 'call ' bl 

add( call, .ausC proc 
add( proc, .einC call 3) 


■ax( .levelL proc 3, levelL call 3 1 ) 

fi 

next 

* first put out; proc —> aus <-- ein 

ein_array * convertl ein, 'array' ) 
ja * 1 

for proc = ein arrayC ja, 1 3 
ja » ja ♦ T 

out s levelCproc3 rpad( proc, 12 > 

+ ' —> ' austprocJ 

+ ' <— ' einCprocJ 

next 

out * out * dupK 79 ); out * '' 


output * 'aain procedure ?'; root * input 
root = ident(root) proc 

baunC root, " ) 


end 










* 20 Okt fortrace.snobol source-leveL trace of a fortran run 

* bzowy (retyped from version 22 Feb) 

* Trace all statements in a Fortran program^ by expanding 

* assignments: X * ... 

* call traceC *X * ... text'^ X ) 



* ifs^ calls, dos: 

* 

* 


call subr(...) “”> 

call trace( 'call subr(...) text', no_val ) 
before the if / call / do 


* 'Trace' writes its text arg 1, and arg 2 if /- no_val (6 format ?. 

* and could also read 'Nr. trace lines more ? ' like snobol &TRACE . 


* (Of course this technique doubles the size of the source, but so what ? 


ftanchor * 1 

input( .read, 5 ); &trim = 1 
output( .write, 3 ) 



def ftrace( line, var ) c, long 
if /* subr line 

long s“subr line; subr_line = ftraceC long ) 

— function | subr line; it would be nice to write the arguments. 

fi 

var * ident(var) -4081 

— ftrace( text, -4081 ) *> text only, no val 

— (overloads ftrace, better 2nd entry point ? 

line ? tab(O) ' ' 


• I 


*— 


line * "X 


call trace( line 


•I I It 
/ 


var 


•)’ 


line ? (len(72) j rem) »> write Sc 

for line ? tab(c) (len(66) j lend) rem) => long Sc 

write * ' *' long 

next 


def 


f 












— aain loop: —-7 

read line * read :f(end__in) 

line nr * line nr + 1 


* ~ c/notrace ? necessary around 1-line functions 


line ? 'c/' re« -> notrace :slout) 

identl notrace, 'notrace' ) :s(out) 

line ? spanC 0123456789') Sc :f(out) 

line ? • ' notanyC ') :s(out) 


* — fortran continuation line ? (free-form ? 


—- — ftrace call | do before, assign after —-- 

if line ? tab(c) + 

•call ' 1 'do ' 1 'if ' I *if(' I 'go ' 1 'goto ' 1 'return' : 


ftrace( line ) 

:(out) 

'format' | 'data' | 'parameter' : 

:(out) 

'subroutine ' | 'function ' : 
subr line = line 

:(out) 


* — hold until common, int, data ... are out 

breakC ) *> var '=' ; 

write » line 
ftraceC line, var ) 

* — trace after 'X = ...' to print the new X. 

* — (look ahead for continuation lines ? 
fi 


out write * line :(read) 

end_in 

end 










e: a littL® line editor 


- Moving- 

n print n lines 

'tn go down n lines 

•n go up n lines 

<return> go to^ and prints the next line 

Ln go to line n. LI goes to the first line^ L-1 to the last. 
L what line an I on? 

/find find the next line containing find 
/find/ a second / is optional/ 

but is needed in/ for example; /find/-1 3 

/ repeat the last /find 

?find find the previous line containing find 


changing 


I 

insert lines before the current line; 
to stop inserting/ type a single 


Kn 


kill (delete) n lines 


C/this/that 

C 

S 


Change: find /this// and change it to /that/ 

repeat the last change 

for Substitute/ is the same as C 


A/str/ 

6 


All: do the commands ... 
for all lines containing /str/ 
for Global/ is the same as A 


R filename 


read a file/ 


U filename 


write a file. 


Q quit 











* 27 jan e.snif: a little line editor, described in e.man 

** ” data structures, globals, patterns — 

data( 'new_line<text,Lprev,Lnext)' ) 

** "“”a Z-uay linked list of all lines 

LO « new_line() 

** ~ line 0: before first, after last 

Lprev(LO) * Lnext(LO) - LO 
L * LO 

** — global: current line 

nua « span('0123456789') => n 
opt_nua « span('0123456789'} *> n | " 

find_pattern * anyC/?') *> slash 

+ (break(*slash) *> str lend) | rem *> str ) 


♦ 

if lll.ll ■ 1.1 

change_pattern » '/' break('/') 
'/' (breakC/') 

^anchor > 0 

»> this 

=> that '/' j rem => that ) 

def 

insertK text ) 



Lprev(L) * Lnext(Lprev(L)) * 

new__line( text, LprevlL), L ) 

def 

insert( file, endfile ) line 
for (line * Sfile) /* endfile 
insert * insert + 1 
insertK line ) 



next 


def 

write( file, n ) 



— leaves L at 

Sfile * text(L) 
write = write + 1 

n th line, or LO 


gt(n*n-1, 0) 

;f(return) 


differ( L » Lnext(L), LO ) 

:s(write) f(return) 

def 

find( str, up ) 
if no str 

str * find^last 
else find last * str 
fi “ 


findl 

text(L) ? str 

;s(return) 


L * (ident( up, '?') Lprev(L), 

Lnext(L)} 


differ( L, LO ) 

:s(find1) f(freturn) 

def 

down( n, up ) 

- 


L * (ident( up, '-') Lprev(L), 

Lnext(L)) 


gt(n*n-1, 0) differ( L, 

LO ) :s(down) f(return} 
















:s: 


— e page 2: for commands in opline: 


def e( opline ) c 

opline * ident(opline) *+1' 

el OOP 
n * 1 

opline ? tab(c) spanC ') 8c 
if opline ? tab(c) + 
num ac: 

writel .output, ♦n ) 
opline ? tab(c) rpos(O) 

rposlO): 

uritel .output, 1 ) 
opt_num ac: 

“ down( ♦n ) 

*-* opt num ac: 

^ down( ♦n, ) 


:s(return) 
: (return) 


*1* ('”' I ’*) *> up num ac: 

** — L1 goes to first line, L-1 last. 

L » LO; down( n, up ) 

•I' 8c: 

n * 0; t = LO 

Ino n = n + 1; differC t * Lnext(t), L ) :s(lno) 

output * 'line ' n 


_ _ _ Find, Change -— 

find pattern ac: 

* — first advance, so f f f ... finds different lines 

L * (ident( up, ’?') LprevCL), Lnext(L)) 
find( str, slash ) 


any( 'cs' ) (change_pattern 1 ") 8c: 

findC this ) 
text(L) ? this * that 

--All I Global- 

anyC 'ag' ) find_pattern rem »> opline : 

opline * ident(opline ) '1* 

find_all * (differ(str) str, find_last ) 
L * Lhext(LO) 
for find( find__all ) 
e( opline ) 

next 



•i' rem ac: 

insert( .input, > 

'k' opt num 8c: 

k * Lprev(L); down( n ♦ 1 ) 

Lnext(k) = L; Lprev(L) = k 

■* — save the killed lines to move, unkill ? 


f 
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** 

'r ' rea *> filenane 8c: 

input( .readfite^ ,chan^ filename 
output s insert( .readfile, -1 ) • 

endfile( .chan > 

'w ' rem *> filename Sc: 

L * Lnext(LO) 

output( .writefile, .chan, filename 
output s uritel .uritefile, 99999 
endfilel .chan ) 

else 

output » '? what s opline 
fi 

L * identl L, LO ) Lnext(LO) 

:(eloop) 
def 


loop e( inO) :(loop) 
end 


lines read.' 

) 

* lines written.' 
:(freturn) 


t 




* 17 Juli Spitbol example: cross-reference lister 
-noli St 

line nr table * tablet lOuO ) 

* ” actable: word —> list of line nrs: 

* (tables are like arrays, indexeo by strings, growing 2 

* Pattern to get a 'word' — 

letter * ‘abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLHNOPiRSTUVWXYZ 
get wore * tab(*cursor) breaklletter) span(letter) *> woro 

* ” ^cursor 

* for lines in file, for words in line — 
for line = input 

line_nr = line_nr + 1 
** output * line_nr ' ' line 

cursor * 0 

for line ? get_word 

line nr_tableL word * 

+ line__nr^tableL word 3 ' ' line__nr 

* — just a long string of line_nr s 

* — (Page# - line# woulo be better), 
next 

next 

sorted = sort( line^nr__table ) 

_ 

w = u 

for woro * sortedL w * w + 1, 13 

output = rpad( word * ', 12, ) sortedLw,2j 

next 

end 


Sample output: Xref of itself: 


U. 17 27 

1 . 15 23 28 

lOuu. 4 

12. 29 

17 . 1 

2 . 29 

Juli . 1 


Pattern .... 8 

Spitbol .... 1 

a . 5 8 22 

abcoef ghij klmnopqrstuvwxyzABCDEFGHIJKLMN0PQRSTUVWXYZ__0123456789 


are . 

6 

arrays . 

0 

as 

6 

break . 

10 

by. 

6 

cross . 

1 

cursor . 

10 

epQ . 

31 

example .... 

1 

file. 

13 

for. 

13 


s 

neeoed) 

Ul2345o789' 


# 




f 
























PBUG ein interaktiver bildschirmorientierter Debugger 


ABSTRACT 

PBUG ist ein interaktiver bildschirmorientierter Debugger, 
der unter dem Betriebssystem WDCt ablauflaehig ist. Kit Hilfe einer 
Kenuetechnik lassen sich C- und PASCAL Programme in einer sehr 
quellsprachen nahen Form ohne Kenntnis maschinennaher Details 
testen. 

INHALT 
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2) Ueberblick ueber die Funktionen von Testhilfen 

3) Vorteilc und Nachteile einer bildschirmorientierten Ein/Ausgabe 

4) PBUG ein bildschirmorientierter Debugger 

4.1) Benutzerschnittstelle 

4.2) Aufbau 

5) Zusammenfassung 

6) yteratur 
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Dieser Bericht wurde unter dem Betriebsystem UNIX mil dem Textformatierer 
£?OFF/TROfT aufbereitet. NROFF/TROFF hat nur einen Trennalgonthmus fuer 
das Englische, der sich beimDeutschen manchmal rechl merkwuerdig bemmmt. 


1. Einfuehrund 


TroU der Bestrebungen. durch Programm-Konslruktion und Venflkation 
fehlerfreie Programme zu erzeugen. wird fast jeder Benutzer eines Computes 
der sich mil dem Erstellen von Programmen befasst. ^ 

dem Auflinden von Programmier- und/oder Tippfehlern konfrontiert. Fuer die 
Pehlersuche bieten sich drei Koeglichkeiten an: 


1) Ein hexadezimaler Post-Kortem-Dump vom Absturz des Programms 

2) Mit Papier. Bleistift und logischem Denken am Schreibtisch, eine man¬ 
chmal nicht einfache Kethode. 

3) Durch gesteuerten und ueberwachten Ablauf des ProgramrM und 
durch Ausgabe. manchmal auch Veraendern. von Variablemnhalten 
mit einem Debugger. 

Die erste Kethode ist sehr muehsam und zeitaufwendig und entspncht in etwa 
einer Aulopsie. Sie wird oefters den Weg zur Absturzursache nicht preisgeben. 
Im allgemeinen ist die z>-eite Kethodc zur Fehlersuche zu bevorzugen. doch es 
treten manchmal Fehler auf. die erst mit der dritten Vethode schnell und ein- 
fach gefunden werden koennen. 

Dieser Bericht befasst sich mit einem Debugger fuer die 3. 
den Funktionsumfang und die Benutzerschnitlstel e 
Anschliessend wird PBUG ein auf Zweidimensionalitaet 
bilLchirmorienUerter Debugger auf dem PERKEO-System nut dem kC 6B000 
unter dem Betriebssystem UNDC vorgestellt. 
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£. Vebert>lick ueber die nmktionen eon Tetthilfen 

Die beute ueblichen Testhilfen lessen sich grob in zwei Klassen einteilen: 

1) Konitore 
S) Debugger 

In diesem Bericht ist unter Konitor eln Testmittel zu Terstehen, das es erlaubt 
Register und Speicherinhalte in einfacher Form anzuzeigen und zu veraendern; 
Ein Monitor ist vorallem fuer kleine Programme zu verwenden. Er arbeitet auf 
bexadezimaler Ebene und erfordert von einem Benutzer ziemlich genaue 
Kenntnisse der Maschinenstruktur und des erzeugten Codes Monitore erfor* 
dern keine Zusatzinformation. da sie nur hexadezimale Muster im Speicher ver- 
und bearbeiten. 

Debugger find fuer mittelgrosse Programme geeignet und erlauben teilweise 
das Arbeiten auf B 3 mibolischer Ebene. Sie unterstuetzen auch das Testen von 
Programmen In einer HLL. Bei Debuggern, vor allem wenn sie symbolisches 
Debuggen erlauben. sind einige Zusatzinformationen erforderlich. die das Test- 
programm oder das Betriebssystem bereitstellen muss. 

Im folgenden wird auf Debugger eingegangen. da Monitore einen sehr 
eingeschraenkten Verwendungsbereich haben. 

Beim Debuggen erfolgt der Ablauf des zu testenden Programms (im folgenden 
Testprogramm) unter Kontrolle xmd Steuerung eines Debuggers Dieses kann 
man einerseits durch gezieltes Setzen von Haltepunkten an beliebigen Stellen 
des Testprogramms erreichen, andererseits besteht die Moeglichkeit der 
schrittweisen Abarbeitung oder der Unterbrechung Verfeinert werden kann der 
gesteuerte Ablauf bzw. das Halten durch Bedingungen. 

Einige Debugger koennen einen symbolischen Post-Mortem-Dump erzeugen. 
Dieser enthaelt ueblicherweise die Aufrufhierarchie der Prozeduren, die 
meistens durch die Angabe der Zeilennummern, in der die Aufrufe stehen, 
ergaenzt wird. Damit laesst sich die Absturzstelle des Programms ziemlich 
genau lokalisieren. In manchen Faellen werden auch die Aufrufparameter und 
die prozedurlokalen Variablen angezeigt (siehe Bild 1). 
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MoolL_up_pymb(#00B0.#0736.#00B0.#0722) line 123 
forrujcurrjir: |00B00736 

fornijcurT_ofIsel: #00300722 
loc_Jndex: |056e0000 


MooKjjpjnodLJiftniO line 160 


^bmainO line 30 

Ioc_char; 

•“jnainO line 63 


lOdOOOOOO 


Bild l. VomPost-Kortem-Dump ansgegebene Aufrufhierarchie der Prozeduren 


Nachdem der Ablauf eines Testprogramms mil einer der eben angegebenen 
Kethoden abgebrochen wurde. nimmt der Debugger Kom^ndos entgegen. 
Ueblicherweise wird die Ausgabe von Speicherinhalten oder 
dert Komfortablere Debugger erlauben eine Formatierung der Ausgabe. Haeufig 
muss der ge>^-uenschte Speicherbereich durch eine hexadezimale Adresse 
ansegeben werden. die muehsam aus einem Binderlisting zu entnehmen ist. 
Wuenschenswerter ist jedoch die symbolische, moeglichst der Programmier* 
sprache angepasste Form. 

Einige Debugger bieten die Koeglichkeit den Kaschinencode in mnemotech- 
nischer Assemblerschreibweise auszugeben. was das manuelle Decodieien des 
Kaschinencodes erspart. 


Ein Aendern von Daten. teilweise auch des Codes mit dem Debugger ist haeufig 
d°ch zolite .on di.ser KHhode wegen ihror moojl,chen 

Seiteneflekte sehr vorsichtig Gebrauch gemacht werden. 


Diese Aufzaehlung von Debugger Funktionen gibt nur einen Ueberblick und 
erhebt keinen Anspruch auf Vollstaendigkeit. 
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8 . Vorteile ^er bildschirmorientierten Ein/Aucgabe 

Soweit dem Autor bekannt, arbeiten Debugger im Dialog meist auf der Zeilene- 
bane, d.h. nach Eingabe einer Kommandozeile erfolgt die gevruenschte Ausgabe 
In cin Oder mehreren Zeilen, danach kann wieder eine Eingabesequenz erfolgen 

UBW.. 

Bei heutigen Kleinrechnem und Personal Computern Kind die 
Bildschirnigeraete im allgemeinen ueber echnelle Dalenleitungen direkt am 
Rechner angeschlossen, to dass eine zeichenweise Ein*/Ausgabe keine wesentli* 
then Probleme aufwirft. Unter dieser Voraussetzung kann auch die Cursorposi- 
tionierung von der Tastatur aus Verwendung finden. Auf diese Weise lassen sich 
Korrekturen am Eingabetext oder Markierungen am ausgegebenen Text einfach 
bewerkstelligen. Ausserdem koennen Eingaben in Abhaengigkeit von der Cur- 
torposiiion unterschiedlich ausgewertet werden. Dies bedeutet, dass der 
Bildschirm nicht nur als eindimensionales Medium verwendbar ist, sondern als 
Flaeche, die unter Umstaenden in mehrere Bereiche fuer verschiedene Ausga* 
beinformationen unterteilt sein kann. 

Der Vorteil einer derartigen Anzeigeform besteht darin, dass vichtige Informa- 
tionen beliebig lange auf dem Bildschirm zu sehen sind, waehrend weniger 
wichtige ueberschrieben werden koennen. Es liegt nahe. fuer ein derartiges 
Vorhaben verschiedene Tenster" auf dem Bildschirm vorzusehen. 

Im Prinzip koennen sich diese Fenster ueberlappen oder es koennen mehrere 
Fenster uebereinander liegen und nur das jeweils aktuelle ist mit seinem Jnhalt 
•ichtbar. Um groessere Informationsmengen in einem sclchen Fenster dar- 
zustellcn, bietet sich cin Kechanismus an. dcr ein Verschieben des Fensters 
ueber dem Ausgabetext zulaesst, um so verschiedene Bereiche sichtbar zu 
xnachen. Diese Methode wird auch "Blaettern" genannt. 

Ein weiterer Vorteil der Fenstertechnik besteht darin. dass vcrschiedenartige 
Informationen in verschiedenen Fenstern angezeigt werden koennen. so dass 
ein Benutzer schon daran erkennen kann. ob es sich z B. um Fehlermeldungen. 
Statusanzeigen. Speicherinhalte oder aehnliches handelt. Diese Velhode 
erleichtert einem Benutzer das Arbeiten mit einem Programm. da z.B 
fehlerhafte Eingaben direkt durch den Cursor angezeigt und korrigiert werden 
koennen. 

Ein Nachteil der Fenstertechnik ist in der etwas staerkeren Abhaengigkeit von 
den Ein*/Ausgabegeraeten zu sehen. 









. 6 * 



4 . FBUG ein bildschirmorientierler Debugger 


Die fuer einen Benutzer komfortabelste Kethode beim Programmtesten besteht 
darin. dass elnerseits das Testen eines Programmes auf der Quellsprachene- 
bene ▼orgenommen wird und andererseits die ZweidimensioMlitaet des 
Bildschlrms fuer dieses Testen ausgenutzt wird. Bisher isl diese ^ 

»ehr wenigen Debuggern und wenn dann nur in eingeschraenkter Form 

irorzullnden. 


I 


Dies war fuer den Autor der Anlass. dieser Idealvorstellung durch EnUick* 
lung eines entsprechenden Debuggers moeglichst nahe zu kommen. Im fo^en- 
den wird die Implementierung eines Prototyps k'iTZ beschneben Diese 
vorlaeufige Loesung ist unter dem Programmnamen PBl-G (Perkeo Debugger) 
auf dem Perkeorechner ablauflaehig. 


Im folgenden wird das Programm PBUG vorgestellt. Dabei wird sovohl die 
Benutzerschnittstelle. als auch der Aufbau des Programms erlaeutert. 
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4.1. BenutzenichnitUtelle 

PBUG verwendet die oben gen&nnte Fenstertechnik. Dabei wird der Bildschinn 
vie in Bild 2 zu seben aufgebaut. 


Informationsfenster Fehlerfenster 

I I 

MODUL: I ERROR: 

PROC.: I 

LINE: I 


COMJiAND. (M/P/V/C/R/B/K/E/L): —Kommandofenster 
MODULS i 

I 

Symbolfenster | 


Benutzerfensler 

I 


Bild 2; Aufleilung des Bildschirms bei PBUG 


Itn Informationsfenster erscheinen der jeweils aktuelle VIodul- und Prozedur- 
name sowie die aktuelle Zeilennummer des Quellprogramms. Programm- und 
Eingabefehler werden im Fenster fuer Fehlermeldungen angezeigt. Im Komman* 
dofenster erscheint entweder eln Menue mit den Funktionen des Debuggers, 
aus denen eine ausgewaehlt werden kann, Oder eine kurze Beschreibung der 
Jeweils zulaessigen Eingaben. Im Symbolfenster koennen Speicherinhalte und 
Symbolnamen des Testprogramms aufgelistet werden. 

b den folgenden Abschnitten wird die Ablaufsteuerung des Testprogramms und 
die Ausgabe von Daten kurz beschrieben. 

PBUG erlaubt in seiner derzeitigen Ausbaustufe das Setzen von Haltepunkten 
sowohl am Anfang als auch am Ende von Prozeduren. Das Teslprogramm kann. 
mit Parametern versorgt. gestartet werden und haelt am ersten Haltepunkt an 
Fuer den Ablauf des Testprogramms von Haltepunkt zu Haltepunkt steht erne 
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Continue-Funklion Tur Verfuegung Beim Erreichen eines Ha]tepur^tes koen- 
mS ‘■S'-- werdtn und V.nablenl^^lle 

•nteieljl wtrden.^Pas TesUn des Programms kann aelbstverstaendlich jeder 

sell beendet werden. 

Das Markieren von Haltepunkten und Variablen kann auf zweierlel Art 
gescbehen: 

Der Name der Prozedur oder der Variablen kann als Text im Komman- 
’ dofenster eingegeben vrerden und die Karkierung gesetzt oder 
geloescht werden. 

2) Im Symbolfenster kann bis zum gewuenschten Symbolnamen posi- 
tloniert und dann markiert warden. 

An •m»m Haltenunkt koennen die Namen der markierten Variablen und ihr 
Inhalt im Symbolfenster angezeigt warden. Die Liste der Kaltepunkte kann au 
dieselbe Weise zur Anzeige kommen. 

Prozedurlokale Variable Sind ebenfalls markierbar und am jeweiligen Hal- 
tepunkt koennen sie mit ihrem Inhalt angezeigt werden. 

Die Ausgabe von Daten kann z.Z. in verschiedenen Datentypformaten 

Der voreingestellte Datentyp ist 4 Bytes hexadezimal Dater.typen. die vom 

Benutzer per Kommando eingestellt werden koennen sind; 

- ’X'; 4 Bytes hexadezimal 

- "x"; 2 Bytes hexadezimal 
i - ’a!) '; 4 Bytes dezimal 

; - "i": 2 Bytes dezimal 

- "BBooleanwerte TRUE/FALSE 

- "C"; ASCll-Zeichen mit Ersatzdarstellung fuer Steuer- 

zeichen 

- "S"; Sets als Binaermuster 

- Dereferenzierung 

Datenstrukturen koennen behelfsmaessig in verschiedenen Datentypformateii 
angezeigt werden. Dabei ist auch eine Dereferenzierung moeglich. 








‘pCuj <. f 

vt'ioo dtr TasVt*e*4tr 

^ •• ittvNluis ^ sL ) 
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4.2. Aufbau 

PBUG ist als ein Zustandsautoroat mit einem zentralen und mehreren peri* 
phaeren Zustaenden aufgebaut. Vom zentralen Zustand kann in die einzelnen 
Progranunroutinen verzweigt warden (siehe Bild 3). 



Symbol 

Fenster 


Handler 

Handler 

Modul 

Frozedur 

Temp_var Variable 

Handler 

Handler 

Handler Handler 

End 

Kommando 

—Start 

Handier 

Handler 



Bun Continue Kill 

Handler Handler Handler 


BUd 3: Zustandsdiagramm von PBUG 


Jede dieser Routinen stellt ein aus mehreren Xfodulen aufgebautes Pro- 
grammstueck dar, das eine bestimmte Funktion realisiert. So gibt es z B. einen 
Variablen-Handler, einen Prozedur-Handler, einen Model-Handler usw, und 
Jeder dieser Handier laesst bestimmte Eingaben zu. die entspi echende Ausga- 
ben veranlassen. Beim Prozedur-Handler z B. koennen Haltcpunkte geselzt, 
geloescht und angezeigt werden, beim Variablen-Handler ist die Ausgabe von 
Variableninhalten in verschiedenen Datentypformaten moeglich. 

Ifanche dieser Routinen haben gemeinsame Funktionen Diese v.erden, soweit es 
moeglich ist. von zentrzden Prozeduren ausgefuehrt. 
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6> ZuununenfBSSUDc: 


Bei PBUG wurde der Versuch unternommen. die meist 
▼orzuflndende Zeilenorientierung zu umgehen und stattdessen 
tlonaliiaet des Bildschirms auszunutzen. 


bei Debuggern 
die Zweidimen- 


Mit ein Ziel des Debuggers war es. soweit wie moeglich jede Kaschinenabhaen- 
siekeit vom Benutzer femzuhalten. Mit Hilfe von PBUG lassen sich sowohl C- als 

lesten und auch gemischte C-Pascal-Programme 

bereiten keinerlei Schwierigkeiten. 

In der derzeiticen Ausbauslufe von PBUG ist es noch nicht moeglich. in jeder 
?.i?e .fn" R-ozedur H.KepunkU za setzen .benso k^nnen kcr^Uxere 
Datenstrukturen nur behelfsmaessig angezeigt werden. Dies und da. verar 
beiten von Datentypen einzelner Variablen sind in Arbeit. Unser enlfernler 
Ziel ist es. dem Benutzer direkt den Quelltext des Testprogramms jnzuzeigen 
und Uim die Koeglichkeit zu geben. dort mit dem Cursor Haltepunkte festz 
legen sowie Variable zur Ausgabe zu kennzeichnen. 


Solange Programme fehlerbehaftet sind. sollten benutzerfreundliche Debugger 
Verfuegung stehcn PBUG zielt In di6se Richtung 







-11 - 


6 . Uterfttur. 

[1] J.F. Varanzano, S.R. Bourne A Thdorial Introduction to ADB UNIX 
TUJEL3HAR1NG SYSTEM UNIX Programmers Manual Seventh Edition Volume 1 
Bell Telephone Laboratories, Incorporated Murray Hill, New Jersey 

[2] MACSBUC Motorola Design Module User's Guide MEX6BKDM(D3) 

[3] N. Wirth. The Personal G)mputeT LILITH Eidgenoessische Technische 
Hochschule Zuerich, Institut fuer Informatik 

[4] IDA Siemens Betriebssystem BS2000, Dialogtesthilfe System 7.700, 2. Aus- 
gabe Januar 1979 (Version 5.0) 

[5] DEBUG: Siemens ISIS-II B0B0/B5 Tabellenheft, SME BOO Ausgabe April 197B 

[6] J.F. Ossanna NROFF The Basic Formatting /Vo^amUNTX T]ME_SHAEING SYS¬ 
TEM UN3C Programmers Manual Seventh Edition Volume 1 Bell Telephone 
Laboratories, Incorporated Murray Hill, New Jersey 





f 






^BUG(l) 


UNIX Programmer's Manual 
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NAME 

pbug — "screen oriented source level debugger" 

SYNOPSIS 

pbug <file> 

MSCRIPTION 

Pbug is an interactive, screen oriented source level debugger. <file> is the 
name of a C- and/or PASCAL program to be debugged. 

Pbug is initially in COMMAND mode. P , M etc. (the first letter of the mode) 
switches to the following modes: 


MODULE 
PROCEDURE 
LINE 
VA RfA Rf F 

TEMPORARY VARIABLE 

SOURCE 

RUN 

CONTINUE 

KILL 

END 

COMMAND 


Hitting ENTER switches into the COMMAND mode, and gives a 'menu' list of the 
various commands. ’!' and '?' switch off and on 'menu' info, '?' in COMMAND 
mode displays a short description of the modes. 

The screen is split into several windows: 
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MODULE: 

PROC.: flatus window 

l.TNF.! 

ERROR: 

error window 

COMMAND (7/5/M/P/T/L/V/S/R/C/K/E): 

✓ command window 

name window 

memory window 

user window 

____________ 


STATUS WINDOW: The current state is shown here. 

ERROR WINDOW: If an error occurs the messages are shown here. To continue hit 
the space key. 

COMMAND WINDOW: Here you can enter names of variables, files, procedures etc. 

NAME WINDOW: Hit i . T or RETURN to come here. Then mark or unmark pro¬ 
cedures, variables etc. by hitting '+ or - . 


MEMORY WINDOW: Memory is displayed here. 

USER WINDOW. li your program does terminal 1/0, it comes out here. 

SOURCE WINDOW: overlays NAME . MEMORY and USER WINDOWS. Ttou can display 
the source file of a module of your program here and move the window over this 
file as in ved (l)) If you position the cursor to a line containing code, then you 
STn .Lr/or u„"ark U (iFyou have compiled this module mth the option (see 

cc (l)orpo (1))) 

You can mark or unmark variable names, procedure names etc. (in the following 
called mark names) in tvro ways: 

Type in ’H-name’ or ’-name' in the command -window. or BACKSPACE 

deletes the character left of the cursor position. RETURN ends input). 


Go to the NAME WINDOW then hit ’+’ or The HOME key ’amplifies’ the fol¬ 
lowing i or T key. e.g. HOME amoves the next page of names into the window. 
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A current name can be defined by typing either 'name' in the COMMAND WINDOW 
or Just '>' in the NAME WINDOW. 

MODULE: the mark name gets the current modul. 

PROCEDURE: set or reset a breakpoint at the start ('+name') or end ('-name') of 
a mark name. 

LINE: set or reset a breakpoint at the start of mark name. 

t 

VARIABLE: ma.Tk or unmark a variable for displaying. 

TEMPORARY VARIABLE: mark or unmark a local variable or parameter of the 
current procedure for displaying. 

SOURCE: enter the full pathname of a module of your program to get the source 

* file into the SOURCE WINDOW. If the module file is in the current directory. 'S 
RETURN' looks for current module.c and then for current module.p in the 
current directory. 

RUN: enter the arguments for the subprocess, end with RETURN. Your program 
■will first break at '_entry'. 

CONTINUE: hit RETURN to run your program to the next breakpoint, or to the 
end of the program. 

KILL: end the run of your program. 

END: end pbug. 


Before starting pbug a special symbol table file is necessary. Run the command 
mktree <file> to create <file>.sym lor pbug. 


When running your program, pbug switches to the USER WINDOW, so that the 
program's terminal I/O goes there. If it scrolls the screen up, hit REFRESH to 
refresh the screen. 


If pbug stops at a* breakpoint, the module and procedure name and the line 
number are displayed in the STATUS WINDOW. 

Subcommands here: 


'S' display marked variables or temporary variables (switch to 'V or 'T' 
mode) 

displays all variables or temporary variables 


If you hit -» in the NAME WINDOW at a breakpoint you can change the displayed 
type of a variable by entering: 


OC' 4 bytes hexa 

‘x' 2 bytes hexa 

T 4 bytes decimal 

T 2 bytes decimal 

•b’ boolean (TRUE/FALSE) 
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's' 1 byte binary 
'c* 1 byte ascii character 
4 bytes hexa (for pointers) 


The default is ’X’. Hit X or followed by a space to switch to MEMORY WINDOW. 
Wt space to display the next data memory location In the previous tormat, or 
one rthe abo?e keys to change the format, - 

memory address, ’d’ dumps the following memory locations in X format. Hit 
ENTER to get back to the NAME WINDOW. 


The CURSOR keys and some other special keys are different from keyboard to 
keyboard. Therefore the /etc/termcap data base contains a translation for 
these keys to an internal representation. _ See also termcap (3) and termcap (b) 
. The new termcap entries all start with ‘y’. 


yl => ENTER 
y2 => DELETE 
y3 => BACKSPACE 
■y6 => RETURN 
y8 => REFRESH 
y9 => KILL LINE 
yg => CURSOR UP 
yh => CURSOR BO’.VN 
yi=> CURSOR RIGHT 
yj => CURSOR LEFT 
yk => CURSOR HOME 


FILES 

<file>.sym 

/etc/termcap 
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NAME 

pc - Pascal compiler 
SYNOPSIS 

pc L option 3 ... tile ... 

OESCKIPTION 

gc Is the UNIX Pascol compiler. It accepts several types of 
orguments: 

Arguments whose names end with '.p' are taken to be Pascal 
source programs: they are compiled^ and each object program 
Is lett on the tile whose name Is that ot the source with 
'.o' substituted tor '.p'. The '.o' tile Is normally 
deleted, however, It a single Pascal progrom Is compiled and 
loaded all at one go. 

Ihe tollowlng options are Interpreted by pc. See IdMj tor 
load opt I 0 ns. 

"C Suppress the loading phase ot the compilation, and 

torce an object tile to be produced even It only one 
program Is compiled. 

Switch on the debug mode. 

Suppress extension warning messages. 

-n Suppress execution t‘'dry run''J. pc commands. 

-0 output 

Name the tlnal output tile gutput. It this option 
Is used the tile 'a.out' w I I i ~b'e' I et t undisturbed. 

~P Arrange tor the compiler to produce code which 

counts the number ot times each routine Is called', 
also. It loading takes place, replace the standard 
startup routine by one which automatically calls 

y ^ ot the start and arranges to write out a 
5>oj?-out tile Qt normol termlnotlon ot execution ot 
the object progrom. An execution protlle can then 
be generated by use ot prolix tJ. 

“W Suppress warning messages. 

“^1* Off 0 = dot 

“t^ngme Detlne the jjome to the preprocessor, as IT by 

'lldetlne'. It no detinltlon Is given, the name is 
det I ne d as 1. 

Files ot 'Ulnclude' type whose nomes do not begin 


't 
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with '/' ore olwoys sought first in the directory of 
the tii.e orgument/ then in directories named in ~i 
options/ then in directories on o stondard list. 

-L Addtionally generates listings on corresponding 

tiles suffixed '.I'. 

-p Run only the macro preprocessor and ploce the result 

tor each '.p' file in a corresponding '.i' file ond 
hos no 'U' lines in it. 

-S Compile the named Pascol programs and leave the 

assembIer-I anguage output on corresponding tiles 
suff t xed '.s'. 

-f Trace and print pc commands. Temporary files are not 

deIet e d. 

-Ungme Remove ony initiol definition of name. 

Other arguments are taken to be either loader!IdD option 
orguments/ or Pascal-compatible object programs/ typically 
produced by an earlier pc run/ or perhaps libraries of 
Pascal-compatible routines. These programs/ together with 
the results of any compilations specified/ are loaded Lin 
the order given! to produce an executable program with name 
a.out. 


PILES 


f i I e . i 
fi le. I 
f i I e . 0 
f i I e . p 
f i I e . s 
a. out 
/tmp/'ptm? 

/1 ib/cpp 
/Iib/passC121 
/I lb/c2 
/Iib/perro r 
/1 ib/prtO .0 
/Iib/mprtU.o 
/ I i b/Iibp.0 
/ I ib/Iibe . a 
/usr/incIude 


preprocessor output file 
error and listing file 
object file 
input file 

assembler listing file 
loaded Clinked! output 
temporaries for pc 
preprocessor 
compiler for pc 
c ompi I e r pass3 

prints errors and listing 

runtime start off 

startoff for profiling 

poscol runtime-support 

stondard library/ see introLSJ 

standard directory for ’Uinclude' files 


SEE ALSO 

K. Jensen and N. Uirth Hgscgi User Hgnugi and Report 

Springer Verlag 1V/8 

monitorLSD/ proftlD/ adbCID/ IdtlD 
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DIAGNOSTICS 

The diagnostics produced by pc itself are intended to be 
se 11-e X p I a not 0 ry . Occasional niessoges may be produced by 
the I ooderCIdJ. 


BUGS 


None known< of course. 
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NAME 

ped — "screen oriented editor" 

SYNOPSIS 

ped <file> 


MSCREPTION 

Ped is an interactive, screen oriented editor. <file> is the name of the file to be 
edited. Ped is initially in REPLACE mode, move the cursor around the screen, 
then type away. ENTERi, ENTER I etc. switch to the following modes: 



REPLACE 

INSERT 

LINE 

FIND 

USE 

WINDOW POSIT 
SAVE 

END EDITING 
AREA 

PARAGRAPH 

TAG 

CHANGE KEYS 
COMMAND ' 



Cursor position ivith the four arrow keys: <1 , t , , and -» . The HOME key 

'amplifies' the followng cursor key, e.g. HOME -* moves the cursor to the right 
margin of the window. If the cursor is already at the right margin, HOME -* 
moves the windovr half a page right. Similarly. HOME ^ moves the cursor to the 
top margin, or moves up half a page. HOME HOME i moves the cursor to the lim¬ 
its of the text, in this case to the last line. 

Delete a character: hitting DEL CHAR deletes the character at the cursor posi¬ 
tion; DELETE or BACK SPACE deletes the character left of the cursor position. 

Hitting ENTER switches into the COMMAND mode, and gives a 'menu' list of the 
■various commands. 

LINE operations: delete (d). insert (i). split (s), remove the rest of (r) a line. 


FIND: ENTERf find-string A finds the next occurrence of 'find-string' in the file. 
ENTER f i, looks for the same 'find-string' again. ENTER f T looks up instead of 
down. 


USE: ENTERu <file name> switches to another file. 


WINDOW POSITION: ENTER w line number RETURN or * or t moves to a given 
line number in the file. ENTER u) +20 l goes down 20 lines, ENTERw-20 T goes 
up 20 lines, 

ENTER w +20 -* goes right 20 columns. 
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SAVE, END EDITING asks if you really want to change the file. Answer y to save, 
or Ti to continue editing. END EDITING closes the file and goes back to Unix. 


In AREA mode, first mark a range of lines by; 
m " mark the top line, 
move the cursor, 
m -- mark the bottom line. 

Then you can delete (d), insert blank lines (i), copy (c) the marked lines. (Copy 
.copies just below the current cursor position). 


PARAGRAPH is like AREA, for rectangles instead of line ranges. First; 

M -- mark the corner of a rectangle, 
move the cursor, 

M -- mark the opposite corner of the rectangle. 

.Then delete (d). horizontal insert (h), vertical insert (v), replace (r) with the 
upper left corner of the rectangle at the current cursor position. 


CALLING: If you call ped then ped looks for a description file in the directory 
AtsrAtb/red/PE<ttynuTnber>.<usemame> . The contents of such a file is the 
file name of the last file you edited and the position in that file. If such a file 
exists for your terminal number and user name, then ped takes the last file you 
edited and positions where you left it. If you call ped -f search or you type ped 
-w line then ped positons in the last file edited to the string search or the line 
line . 


TAG: If you call ped -t search or you type ENTER t search RETURN or i or t then 
ped looks in the file tags in the current directory for the entry search . (See 
also ctags (l)) . It opens the corresponding file and positions to the line where 
procedure or function search is declared. This works for C and PASCAL files. 


CHANGE KEYS: to expand a single letter to a long vrord, like ’M’ to 'Mississippi', 
type: 

ENTEK ENTER <delimiter> <Mississippi> <delimiter> <M>. 

Then hitting 'M' is the same as typing in 'Mississippi'. The expanded 'word' can 
also contain editor commands, as in: 

/ENTER f 4 ENTER r replace/M 
The ENTERX command displays all expand keys, in the format 
<expand key>: <sequence for this key>. 


The ENTERy command escapes to the unix shell. EOT (control-z) returns to Ped. 


KEYBOARD , - 

The CURSOR keys and some other special keys are different from keyboard to 
keyboard. Therefore the /etc/termcap data base contains a translation for 
these keys to an internal representation. See also termcap (3) and termcap (5) 
, The new termcap entries all start with 'y'. 
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yl => 

ENTER 

y2 => 

DELETE 

y3 => 

BACKSPACE 

y4 => 

TAB 

y5 => 

DEL CHAR 

A 

II 

RETURN 

y7 => 

BACKTAB 

y8 => 

REFRESH 

y9 => 

KILL LINE 

ya => 

+ PAGE 

yb => 

- PAGE 

yc => 

+ LINE 

yd => 

- LINE 

ye => 

INSERT LINE 

yf => 

DELETE LINE 

yg => 

CURSOR UP 

yh => 

CURSOR DO\\^ 

yi => 

CURSOR RIGHT 

yj => 

CURSOR LEFT 

yk => 

CURSOR HOME 


If your keyboard has some function keys, then you can install additional func¬ 
tions; 

+ /- PAGE (LINE) moves the text in the window up/dovm one (half a) page. 
INSERT, DELETE LINE inserts or deletes a line vathout changing the current 
mode. 


/tmp/text<pid> 

/etc/termcap 

/usr/lib/red/PE<ttynumber>.<username> 


BUGS 

AREA is not well tested. 
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NAME 

xref - cr©ss-re^erence listing 
SYNOPSIS 

xref L-c3 L‘-pO L-PO 
DESCKIPTION 

° (isting (ro», the stohdard 

“IPhfhetic sorted iden- 

tiers folloued by the (inenuoibers in which they oppeor. 

“C C comments will be skipped 

“P Pascal comments will be skipped 

-P will be processed. The filenames are 

prepended to the Mnenumbers. 

Unpacked input files are listed without filenames. 
tXAMPLE 


pack ock 

• p f oc. p 

1 X ret 

-p 

-P 


outputs: 






• 

m 

var 

0 c k . p 

2 




w r i t e 1 n 

ack. p 

12 

14 



X 

ock. p 

2 

13 

14 

14 


f ac. p 

3 

11 

12 

12 

y 

ock. p 

2 

13 

14 

14 


IS 

13 


f oc. p 
f ac. p 


3 

10 


12 




SEE ALSO 

pack C1J, 



1 
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